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I LIST X 

THIS IS THE ORIGINAL JUNE 1979 ATARI 400/800™C0MPUTER OPERATING 
SYSTEM LISTING, MODIFIED TO ASSEMBLE ON THE MICROTEC CROSS 
ASSEMBLER. IN THE MODULES INTERUPT HANDLER AND MONITOR THERE IS 
CODE WHICH IS USED FOR DEBUGGING. IT ASSEMBLES TO ADDRESS $9000 
TO $9020. THIS IS NOT IN THE OS ROM AND THEREFORE NOT IN ANY 
SYSTEMS EXCEPT THOSE USED FOR DEBUGGING. IT IS INCLUDED FOR 
HISTORICAL REASONS ONLY. 
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COLLEEN OPERATING SYSTEM EQUATE FILE 


MODULE ORIGIN TABLE 


18 

EOOO 

CHRORG 


$EOOO 

;CHARACTER SET 

19 

E400 

VECTBL. 

*= 

$E400 

;VECTOR TABLE 

20 

E480 

VCTABL 

m 

$E480 

#RAM VECTOR INITIAL VALUE 

21 

E4A6 

CIOORG 

= 

$E4A6 

;CENTRAL I/O HANDLER 

22 

E6D5 

INTORG 

- 

$E6D5 

;INTERRUPT HANDLER 

23 

E944 

SIOORG 

=3 

$E944 

;SERIAL I/O DRIVER 

24 

EDEA 

DSKORG 


$EDEA 

i DISK HANDLER 

25 

EE78 

PRNORG 

= 

$EE78 

>PRINTER HANDLER 

26 

EF41 

CASORG 

= 

$EF41 

i CASSETTE HANDLER 

27 

F0E3 

MONORG 

9K 

*F0E3 

, MOINTOR/POWER UP MODULE 

28 

F3E4 

KBDORG 


$F3E4 

iKEYBOARD/DISPLAY HANDLER 


t VECTOR TABLE 

jHANDLER ENTRY POINTS ARE CALLED OUT IN THE FOLLOWING VECTOR 
;TABLE. THESE ARE THE ADDRESSES MINUS ONE. 


EXAMPLE FOR EDITOR 


OPEN 

CLOSE 

GET 

PUT 

STATUS 

SPECIAL 

JUMP TO POWER ON INITIALIZATION ROUTINE 


48 


i 

F 

NOT USED 


49 


* 




50 


i 




51 

E400 

EDITRV 

- 

$E400 

iEDITOR 

52 

E410 

SCRENV 


$E410 

;TELEVISION SCREEN 

53 

E420 

KEYBDV 

= 

*E420 

3 KEYBOARD 

54 

E430 

PRINTV 


$E430 

iPRINTER 

55 

E440 

CASETV 


*E44G 

;CASSETTE 

56 






57 



JUMP 

VECTOR TABLE 


58 


1 




59 


; THE FOLLOWING IS A TABLE 

OF JUMP INSTRUCTIONS 

60 


i TO VARIOUS 

ENTRY POINTS 

IN THE OPERATING SYSTEM. 

61 


; 




62 

E450 

DISKIV 

-- 

*E450 

i DISK INITIALIZATION 
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63 

E453 

DSKINV 



$E453 

DISK INTERFACE 

64 

E456 

CIGV 



$E456 

CENTRAL INPUT OUTPUT ROUTINE 

65 

E459 

SIGV 

- 


$E459 

SERIAL INPUT OUTPUT ROUTINE 

66 

E45C 

SETVBV 

= 


$E45C 

SET SYSTEM TIMERS ROUTINE 

67 

E45F 

SYSVEV 

ss 


$E45F 

SYSTEM VERTICAL BLANK CALCULATIONS 

68 

E462 

XITVBV 

- 


$E462 

EXIT VERTICAL BLANK CALCULATIONS 

69 

E465 

SIOINV 

= 


$E465 J 

SERIAL INPUT OUTPUT INITIALIZATION 

70 

E468 

SENDEV 

— 


$E468 

SEND ENABLE ROUTINE 

71 

E46B 

INTINV 

=s 


$E46B 

INTERRUPT HANDLER INITIALIZATION 

72 

E46E 

CIGINV 

ss 


$E46E 

CENTRAL INPUT OUTPUT INITIALIZATION 

73 

E471 

BLKBDV 

s* 


$E471 

BLACKBOARD MODE 

74 

E474 

WARMSV 

= 


$E474 

WARM START ENTRY POINT 

75 

E477 

CGLDSV 



$E477 

COLD START ENTRY POINT 

76 

E47A 

RBLOKV 

= 


$E47A 

CASSETTE READ BLOCK ENTRY POINT VECTOR 

77 

E47D 

CSQPIV 

= 


$E47D 

CASSETTE OPEN FOR INPUT VECTOR 

78 


;VCTABL 



$E480 


79 


i 





80 


i 





81 


j OPERATING SYSTEM EQUATES 


82 

83 


i 

; COMMAND 

CODES 

FOR IOCB 


84 

0003 

OPEN 



3 

OPEN FOR INPUT/OUTPUT 

85 

0005 

GETREC 

= 


5 

GET RECORD (TEXT) 

86 

0007 

GETCHR 

- 


7 

GET CHARACTER(S) 

87 

0009 

PUTREC 

rs 


9 

PUT RECORD (TEXT) 

88 

OOOB 

PUTCHR 

= 


$B 

PUT CHARACTER(S) 

89 

oooc 

CLOSE 



$C 

CLOSE DEVICE 

90 

OOOD 

STAT IS 

±3 


$D 

STATUS REQUEST 

91 

OOOE 

SPECIL 

“ 


$E 

; BEGINNING OF SPECIAL ENTRY COMMANDS 

92 

93 


i 

i SPEC I 

AL 

ENTRY 

COMMANDS 


94 

95 

0011 

i 

DRAWLN 

- 


*1 1 

} DRAW LINE 

96 

0012 

FILLIN 



$12 

; DRAW LINE WITH RIGHT FILL 

97 

0020 

RENAME 



$20 

RENAME DISK FILE 

98 

0021 

DELETE 

=r 


$21 

DELETE DISK FILE 

99 

0022 

FORMAT 

m 


$22 

FORMAT 

100 

0023 

LOCKFL 

zz 


$23 

LOCK FILE TO READ ONLY 

101 

0024 

UNLOCK 

- 


$24 

UNLOCK LOCKED FILE 

102 

0025 

POINT 

= 


$25 

POINT SECTOR 

103 

0026 

NOTE 

s= 


$26 

NOTE SECTOR 

104 

OOFF 

IOCFRE 

= 


$FF 

IOCB “FREE" 

105 


J 





106 


; AUX1 

EQUATES 



107 


r () INDICATES 

WHICH DEVICES 

USE BIT 

108 


" 





109 

0001 

APPEND 

m 


$1 

OPEN FOR WRITE APPEND (D>, OR SCREEN READ 

110 

0002 

DIRECT 

= 


$2 

OPEN FOR DIRECTORY ACCESS <D) 

111 

0004 

OPNIN 

= 


$4 

OPEN FOR INPUT (ALL DEVICES) 

112 

0008 

OPNOT 



$8 

OPEN FOR OUTPUT (ALL DEVICES) 

113 

OOOC 

OPNINO 



OPNIN+OPNOT 

OPEN FOR INPUT AND OUTPUT (ALL DEVICES) 

114 

0010 

MXDMOD 

St 


$10 

OPEN FOR MIXED MODE <E, S) 

115 

0020 

INSCLR 

= 


$20 

OPEN WITHOUT CLEARING SCREEN <E, S) 

116 


J 
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117 


i DEVICE 

NAMES 


118 


J 




119 

0045 

SCREDT 

» 

'E 

SCREEN EDITOR (R/W) 

120 

004B 

KBD 

- 

'K 

KEYBOARD (R ONLY) 

121 

0053 

DISPLY 

m 

'S 

SCREEN DISPLY (R/W) 

122 

0050 

PRINTR 

= 

'P 

PRINTER CM ONLY) 

123 

0043 

CASSET 

=s 

'C 

CASSETTE 

124 

004D 

MODEM 

= 

'M 

MODEM 

120 

0044 

DISK 


'D 

DISK (R/W) 

126 


i 




127 


5 SYSTEM 

EOL 

(CARRIAGE RETURN) 

128 


1 




129 

009B 

CR 

= 

$9B 


130 


i 




131 


J 




132 


J 

OPERATING SYSTEM STATUS CODES 

133 


J 




134 


i 




135 

0001 

SUCCES 

- 

$01 

SUCCESSFUL OPERATION 

136 


j 




137 

0080 

BRKABT 

“ 

$80 

BREAK KEY ABORT 

138 

0081 

PRVOPN 

91 

$81 

IOCB ALREADY OPEN 

139 

0082 

NONDEV 

s= 

$82 

NON—EXISTANT DEVICE 

140 

0083 

WRONLY 

= 

$83 

IOCB OPENED FOR WRITE ONLY 

141 

0084 

NVALID 

S= 

$84 

INVALID COMMAND 

142 

0085 

NOTOPN 

= ~ 

$85 

DEVICE OR FILE NOT OPEN 

143 

0086 

BADIOC 


$86 

INVALID IOCB NUMBER 

144 

0087 

RDONLY 

- 

$87 

IOCB OPENED FOR READ ONLY 

145 

0083 

EOFERR 

” 

$88 

END OF FILE 

146 

0089 

TRNRCD 

- 

$89 

TRUNCATED RECORD 

147 

008A 

TIMOUT 

ax 

$BA 

PERIPHERAL DEVICE TIME OUT 

148 

008B 

DNACK 

3= 

$8B 

DEVICE DOES NOT ACKNOWLEDGE COMMAND 

149 

008C 

FRMERR 

= 

$8C 

SERIAL BUS FRAMING ERROR 

150 

OOSD 

CRSROR 

- 

$8D 

CURSOR OVERRANGE 

151 

008E 

OVRRUN 

= 

$8E 

SERIAL BUS DATA OVERRUN 

152 

008F 

CHKERR 


$8F 

SERIAL BUS CHECKSUM ERROR 

153 


l 




154 

0090 

DERROR 

=5 

$90 

PERIPHERAL DEVICE ERROR (OPERATION NOT COMP 

155 

0091 

BADMOD 


$91 

BAD SCREEN MODE NUMBER 

156 

0092 

PNCNOT 

* 

$92 

FUNCTION NOT IMPLEMENTED IN HANDLER 

157 

0093 

SCRMEM 

«= 

$93 

INSUFFICIENT MEMORY FOR SCREEN MODE 

158 


p 




159 


; 




160 


P 




161 


i 




162 


} 




163 


i 




164 


? 

PAGE 

ZERO RAM ASSIGNMENTS 

165 


3 




166 



*=$0000 


167 

0000 

LINZBS: 

. RES 

2 

LINBUG RAM (WILL BE REPLACED BY MONITOR RAM 

168 


i 




169 


; THESE 

LOCATIONS ARE NOT CLEARED 

170 

0002 

CASINIr 

. RES 

2 

CASSETTE INIT LOCATION 
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171 

0004 

RAMLO: 

. RES 

2 

r RAM POINTER FOR MEMORY TEST 

172 

0006 

TRAMS2: 

. RES 

1 

rTEMPORARY REGISTER FOR RAM SIZE 

173 

0007 

TSTDAT: 

. RES 

1 

?RAM TEST DATA REGISTER 

174 






175 


i CLEARED ON 

CDLDSTART ONLY 


176 

0008 

WARMST: 

. RES 

1 

iWARM START FLAG 

177 

0009 

BOOT?: 

. RES 

1 

iSUCCESSFUL BOOT FLAG 

178 

000A 

DOSVEC: 

. RES 

2 

/ DISK SOFTWARE START VECTOR 

179 

OOOC 

DOSINI. 

RES 

2 

;DISK SOFTWARE INIT ADDRESS 

180 

OOOE 

APPMHI. 

. RES 

2 

;APPLICATIONS MEMORY HI LIMIT 

181 

182 


j 

i CLEARED ON 

COLD OR WARM START 

183 

0010 

INTZB5 

=■* 


iINTERRUPT HANDLER 

184 

0010 

PGKMSK 

. RES 

1 

jSYSTEM MASK FOR POKEY IRQ ENABLE 

185 

0011 

BRKKEY 

. RES 

1 

iBREAK KEY FLAG 

186 

0012 

RTCLOK 

. RES 

3 

;REAL TIME CLOCK (IN 16 MSEC UNITS) 

187 


j 




188 

0015 

BUFADR 

. RES 

2 

;INDIRECT BUFFER ADDRESS REGISTER 

189 


/ 




190 

0017 

ICCQMT 

. RES 

1 

;COMMAND FOR VECTOR 

191 


} 




192 

0018 

DSKFMS 

. RES 

2 

/DISK FILE MANAGER POINTER 

193 

001A 

DSKUTL. 

. RES 

2 

j DISK UTILITIES POINTER 

194 


z 




195 

001C 

PTIMOT 

. RES 

1 

jPRINTER TIME OUT REGISTER 

196 

00 ID 

PBPNT: 

. RES 

1 

rPRINT BUFFER POINTER 

197 

00 IE 

PBUFSZ 

. RES 

1 

jPRINT BUFFER SIZE 

198 

001F 

PTEMP: 

. RES 

1 

jTEMPORARY REGISTER 

199 


i 




200 

0020 

ZIOCB 

=*• 


j ZERO PAGE I/O CONTROL BLOCK 

201 

0010 

IOCBSZ 

a 

16 

/NUMBER OF BYTES PER 10CB 

202 

0080 

MAX IOC 

* 

8*I0CBSZ 

,LENGTH OF THE IOCB AREA 

203 

0020 

IOCBAS 




204 

0020 

ICHIDZ 

. RES 

1 

;HANDLER INDEX NUMBER (FF = IOCB FREE> 

205 

0021 

ICDNOZ 

RES 

1 

/DEVICE NUMBER (DRIVE NUMBER) 

206 

0022 

ICC0I1Z 

. RES 

1 

JCOMMAND CODE 

207 

0023 

ICSTAZ 

RES 

1 

/STATUS OF LAST IOCB ACTION 

208 

0024 

ICBALZ 

. RES 

1 

;BUFFER ADDRESS LOW BYTE 

209 

0025 

ICBAHZ 

T RES 

1 


210 

0026 

ICPTLZ 

. RES 

1 

/PUT BYTE ROUTINE ADDRESS - 1 

211 

wtz. f 

ICPTHZ 

. RES 

1 


212 

0028 

ICBLLZ 

. RES 

i 

? BUFFER LENGTH LOW BYTE 

213 

0029 

ICBLHZ 

. RES 

1 


214 

002A 

ICAX1Z 

. RES 

l 

/AUXILLARY INFORMATION FIRST BYTE 

2 i 5 

002B 

ICAX2Z 

. RES 

i 


216 

002C 

ICSPRZ 

: . RES 

4 

/TWO SPARE BYTES (CIO LOCAL USE) 

217 

002E 

ICIDNO 

= 

ICSPRZ+2 

7 IOCB NUMBER X 16 

218 

002F 

CIOCHR 


ICSPRZ+3 

/CHARACTER BYTE FOR CURRENT OPERATION 

219 

220 

0030 

STATUS 

. RES 

1 

iINTERNAL STATUS STORAGE 

221 

0031 

CHKSUM 

. RES 

1 

/CHECKSUM (SINGLE BYTE SUM WITH CARRY) 

222 

0032 

BUFRLO 

. RES 

1 

/POINTER TO DATA BUFFER (LO BYTE) 

223 

0033 

BUFRHI 

. RES 

1 

/POINTER TO DATA BUFFER (HI BYTE) 

224 

0034 

BFENLO 

. RES 

1 

/NEXT BYTE PAST END OF THE DATA BUFFER 






PAGE 


6 
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225 

0035 

BFENHI: 

. RES 

1 

iNEXT BYTE PAST END OF THE DATA BUFFER (HI B 

226 

0036 

CRETRY: 

. RES 

1 

iNUMBER OF COMMAND FRAME RETRIES 

227 

0037 

DRETRY: 

. RES 

1 

;NUMBER OF DEVICE RETRIES 

228 

0038 

13UFRFL: 

. RES 

1 

t DATA BUFFER FULL FLAG 

229 

0039 

RECVDN: 

. RES 

1 

;RECEIVE DONE FLAG 

230 

003A 

XMTDON; 

. RES 

1 

i TRANSMISSION DONE FLAG 

231 

00313 

CHKSNT: 

. RES 

1 

s CHECKSUM SENT FLAG 

232 

003C 

NOCKSM: 

. RES 

1 

JNO CHECKSUM FOLLOWS DATA FLAG 

233 


i 




234 


] 




235 

003D 

BPTR: 

. RES 

1 


236 

003E 

FTYPE; 

. RES 

1 


237 

003F 

FEDF; 

. RES 

1 


238 

0040 

FREQ; 

. RES 

1 


239 

0041 

SOUNDR: 

. RES 

1 

iNOISY I/O FLAG. (ZERO IS QUIET) 

240 

0042 

CRITIC 

. RES 

1 

JDEFINES CRITICAL SECTION (CRITICAL IF NON-Z 

241 


j 




242 

0043 

FMSZPG 

. RES 

7 

;DISK FILE MANAGER SYSTEM ZERO PAGE 

243 


i 




244 


i 




245 

004A 

CKEY: 

. RES 

1 

> FLAG SET WHEN GAME START PRESSED 

246 

004B 

CASSET 

. RES 

1 

i CASSETTE BOOT FLAG 

247 

004C 

DSTAT: 

. RES 

1 

i DISPLAY STATUS 

248 


i 




249 

004D 

ATRACT 

. RES 

1 

i ATTRACT FLAG 

250 

004E 

DRKMSK 

. RES 

1 

i DARK ATTRACT MASK 

251 

004F 

CQLRSH 

. RES 

1 

i ATTRACT COLOR SHIFTER (EOR'ED WITH PLAYFIEL 

252 


1 




253 

0002 

LEDGE 

as 

2 

i LMARGN'S VALUE AT COLD START 

254 

0027 

REDGE 

r= 

39 

iRMARGN'S VALUE AT COLD START 

255 

0050 

TMPCHR: 

, RES 

1 


256 

0051 

HQLD1: 

. RES 

1 


257 

0052 

LMARGN 

RES 

1 

; LEFT MARGIN (SET TO 1 AT POWER ON) 

258 

0053 

RMARGN 

. RES 

1 

; RIGHT MARGIN (SET TO 38 AT POWER ON) 

259 

0054 

ROWCRS 

. RES 

1 

j CURSOR COUNTERS 

260 

0055 

CGLCRS 

. RES 

2 


261 

0057 

DINDEX 

. RES 

1 


262 

0058 

5AVMSC 

* RES 

2 


263 

00 5A 

OLDROW 

. RES 

1 


264 

00513 

OLDCOL 

. RES 

2 


265 

005D 

OLDCHR 

. RES 

1 

i DATA UNDER CURSOR 

266 

005E 

OLDADR 

. RES 

2 


267 

0060 

NEWROW 

. RES 

1 

;POINT DRAW GOES TO 

268 

0061 

NEWCDL 

. RES 

2 


269 

0063 

LOGCOL 

RES 

1 

jPOINTS AT COLUMN IN LOGICAL LINE 

270 

0064 

ADRESS 

. RES 

2 


271 

0066 

MLTTMP 

. RES 

cl 


272 

0066 

OPNTMP 

5= 

MLTTMP 

iFIRST BYTE IS USED IN OPEN AS TEMP 

273 

0068 

SAVADR 

: - RES 

2 


274 

006A 

RAMTOP 

. RES 

1 

;RAM SIZE DEFINED BY POWER ON LOGIC 

275 

006E 

BUFCNT 

. RES 

1 

;BUFFER COUNT 

276 

006C 

BUFSTR 

. RES 

2 

}EDITOR GETCH POINTER 

277 

006E 

BITMSK 

. RES 

1 

# BIT MASK 

278 

006F 

SHFAMT 

: . RES 

1 
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279 

0070 

ROWAC: 

. RES 


2 


280 

0072 

COLAC. 

. RES 


2 


281 

0074 

ENDPT: 

. RES 


2 


282 

0076 

DELTAR 

. RES 


1 

% 

283 

0077 

DELTAC 

. RES 


2 


284 

0079 

ROWING 

. RES 


1 


285 

007A 

COL INC: 

. RES 


1 


286 

007B 

SWPFLG 

. RES 


1 

i NON-O IF TXT AND REGULAR RAM IS SWAPPED 

287 

0070 

HOLDCH 

. RES 


1 

;CH IS MOVED HERE IN KGETCH BEFORE CNTL & SH 

288 

0070 

INSDAT 

. RES 


1 


289 

007E 

COUNTR 

. RES 


2 


290 


i 





291 


r 





292 


i 





293 







294 


> 

80 - 

FF 

ARE 

RESERVED FOR USER APPLICATIONS 

295 


t 





296 


t 





297 


1 





298 


i 

NOTE 


SEE 

FLOATING POINT SUBROUTINE AREA FOR ZERO PAGE CELLS 

299 


p 





300 


p 





301 


i 





302 


■ 





303 


i 

PAGE 

1 

- 

STACK 

304 


1 





305 


i 





306 


5 





307 


i 





308 


i 

PAGE 

TWO RAM ASSIGNMENTS 

309 


l 





310 




ioo 



311 

0200 

INTABS 

=# 



; INTERRUPT RAM 

312 

0200 

VDSLST 

. RES 


£L 

; DISPLAY LIST NMI VECTOR 

313 

0202 

VPRCED 

. RES 


n 

G* 

J PROCEED LINE IRQ VECTOR 

314 

0204 

VINTER 

. RES 


2 

iINTERRUPT LINE IRQ VECTOR 

315 

0206 

VBREAK 

. RES 


2 

i SOFTWARE BREAK (00) INSTRUCTION IRQ VECTOR 

316 

0208 

VKEYBD 

. RES 


2 

jPOKEY KEYBOARD IRQ VECTOR 

317 

020 A 

VSERIN 

. RES 


2 

iPOKEY SERIAL INPUT READY IRQ 

318 

0200 

VSEROR 

. RES 


2 

i POKEY SERIAL OUTPUT READY IRQ 

319 

02 OE 

VSEROC 

. RES 


2 

i POKEY SERIAL OUTPUT COMPLETE IRQ 

320 

0210 

VTIMR1: 

. RES 


2 

; POKEY TIMER 1 IRQ 

321 

0212 

VTIMR2 

. RES 


2 

; POKEY TIMER 2 IRQ 

322 

0214 

VTIMR4 

. RES 


2 

5 POKEY TIMER 4 IRQ 

323 

0216 

VIMIRQ 

. RES 


2 

I IMMEDIATE IRQ VECTOR 

324 

0218 

CDTMV1 

. RES 


2 

iCOUNT DOWN TIMER 1 

325 

021 A 

CDTMV2 

. RES 


2 

;COUNT DOWN TIMER2 

326 

021C 

CDTMV3 

. RES 


2 

iCOUNT DOWN TIMER 3 

327 

02 IE 

CDTMV4 

. RES 


2 

; COUNT DOWN TIMER 4 

328 

0220 

CDTMV5 

. RES 


2 

>COUNT DOWN TIMER 5 

329 

0222 

VVBLKI 

. RES 


2 

lIMMEDIATE VERTICAL BLANK NMI VECTOR 

330 

0224 

VVBLKD 

. RES 


2 

JDEFERRED VERTICAL BLANK NMI VECTOR 

331 

0226 

CDTMA1 

. RES 


2 

jCOUNT DOWN TIMER 1 JSR ADDRESS 

332 

0228 

CDTMA2 

. RES 


2 

lCOUNT DOWN TIMER 2 USR ADDRESS 






ERR LINE 

ADDR 

333 

022A 

334 

022B 

335 

022 C 

336 

022D 

337 

022 E 

338 

022F 

339 

0230 

340 

0231 

341 

0232 

342 

0233 

343 


344 

0234 

345 

0235 

346 

0236 

347 


348 

0238 

349 


350 

023A 

351 

023B 

352 

023C 

353 

023D 

354 


355 


356 


357 

023E 

358 


359 


360 


361 

023F 

362 


363 

0240 

364 

0241 

365 

0242 

366 

0244 

367 


368 

0245 

369 


370 

0246 

371 


372 

0247 

373 


374 

026F 

375 


376 

0270 

377 

0271 

378 

0272 

379 

0273 

380 

0274 

381 

0275 

382 

0276 

383 

0277 

384 

0278 

385 

0279 

386 

027A 


CDTMF3: 
SRTIMR: 
CDTMF4: 
INTEMP: 
CDTMF5: 
SDMCTL: 
SDLSTL: 
SDLSTH: 
SSKCTL: 


LPENH; 

LPENV: 


I 

CDEVIC: 

CCOMND: 

CAUX1 

CAUX2: 

i 

r NOTE: 
TEMP: 
s NOTE: 
ERRFLG: 

t 

DFLAGS 
DBSECT 
BOOTAD 
COLDST 


DSKTIM: 

Jf 

LINBUF: 

I 

GPRIQR; 

PADDLO 

PADDL1 

PADDL2 

PADDL3 

PADDL4 

PADDL5 

PADDL6 

PADDL7 

STICKO 

STICK1 

STICKS 
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387 

027B 

STICK3 

. RES 

1 


388 

027C 

PTRIGO 

. RES 

1 

s PADDLE TRIGGER 0 

389 

027D 

PTRIG1 

. RES 

1 


390 

027E 

PTRIG2 

. RES 

1 


391 

027F 

PTRIG3 

. RES 

1 


392 

0280 

PTRIG4 

. RES 

1 


393 

0281 

PTRIG5 

. RES 

1 


394 

02 S2 

PTRIG6 

. RES 

1 


395 

0283 

PTRIG7 

. RES 

1 


396 

0284 

STRIGO 

. RES 

i 

;JOYSTICK TRIGGER 0 

397 

0285 

STRIG1 

. RES 

l 


398 

0286 

STRIG2 

. RES 

1 


399 

0287 

STRIG3 

. RES 

l 


400 

401 

0288 

CSTAT: 

. RES 

l 


402 

0289 

WMODE: 

. RES 

i 


403 

028A 

BLIM: 

. RES 

l 


404 

405 

028B 

* 

. RES 

5 

iSPARE 

406 

407 

408 

409 

410 

0290 

TXTROW 

. RES 

1 

sTEXT RQWCRS 

41 1 

0291 

TXTCOL 

. RES 

2 

> TEXT COLORS 

412 

0293 

TINDEX 

. RES 

1 

rTEXT INDEX 

413 

0294 

TXTMSC 

. RES 

n 

;FOOLS CONVRT INTO NEW M5C 

414 

0296 

TXTOLD 

. RES 

6 

j OLDROW Sc OLDCOL FOR TEXT (AND THEN SOME) 

415 

029C 

TMPXlr 

. RES 

1 


416 

029D 

HGLD3: 

. RES 

1 


417 

029E 

SUBTMP 

. RES 

1 


418 

029F 

H0LD2: 

. RES 

1 


419 

02A0 

DMASK: 

. RES 

1 


420 

02 A1 

TMPL.BT: 

. RES 

3 


421 

02A2 

ESCFLG 

. RES 

1 

,ESCAPE FLAG 

422 

02 A3 

TABMAP 

. RES 

15 


423 

02B2 

LOGMAP; 

RES 

4 

;LOGICAL LINE START BIT MAP 

424 

02 B6 

INVFLG: 

. RES 

i 

i INVERSE VIDEO FLAG (TOGGLED BY ATARI KEY 

425 

02B7 

FILFLG 

. RES 

1 

; RIGHT FILL FLAG FOR DRAW 

426 

02B8 

TMPROW: 

, RES 

i 


427 

02 B 9 

TMFCOL 

RES 

2 


428 

02BB 

SCRFLG 

. RES 

1 

J SET IF SCROLL OCCURS 

429 

02BC 

HOLD4: 

. RES 

1 

; TEMP CELL USED IN DRAW ONLY 

430 

02 BD 

HOLDS: 

. RES 

1 

; DITTO 

431 

02BE 

SHFLOK 

: . RES 

1 


432 

02BF 

BOTSCR 

: . RES 

1 

; BOTTOM OF SCREEN : 24 NORM 4 SPLIT 

433 

434 

435 

02C0 

i 

PCOLRO. 

. RES 

1 

JPO COLOR 

436 

02 C1 

PCOLRl: 

. RES 

1 

3 PI COLOR 

437 

02C2 

PC0LR2 

. RES 

1 

; P2 COLOR 

438 

02C3 

PC0LR3 

. RES 

1 

, P3 COLOR 

439 

02C4 

CQLQRO 

. RES 

1 

;COLOR 0 

440 

02C5 

COLOR 1: 

: . RES 

1 









ERR LINE ADDR B1 B2 B3 B4 


441 

02C6 

C0L0R2: 

. RES 

442 

02C7 

C0L0R3: 

. RES 

443 

02C8 

C0L0R4: 

. RES 

444 




445 


i 


446 

02C9 


. RES 

447 


i 


448 


j 


449 


i 


450 

02E0 

GLBABS 

—* 

451 


} 


452 

02E0 


. RES 

453 


J 


454 

02E4 

RAMSIZ- 

. RES 

455 

02E5 

MEMTOP' 

. RES 

456 

02E7 

MEMLO: 

. RES 

457 

02E9 


. RES 

458 

02EA 

DVSTAT 

. RES 

459 

02EE 

CBAUDL 

. RES 

460 

02EF 

CBAUDH 

. RES 

461 


J 


462 

02F0 

CRSINH 

. RES 

463 

02 F1 

KEYDEL 

. RES 

464 

02F2 

CHI. 

. RES 

465 


} 


466 

02F3 

CHACT: 

. RES 

467 

02F4 

CHBAS: 

. RES 

468 


J 


469 

02F5 


. RES 

470 


j 


471 

02FA 

CHAR 

. RES 

472 

02FB 

ATACHR; 

. RES 

473 

02FC 

CH: 

RES 

474 

02FD 

FILDAT 

. RES 

475 

02FE 

DSPF’LG 

. RES 

476 

02FF 

3SFLAG 

. RES 

477 


; 


478 


j 


479 


/ 


480 




481 


3 


482 


i 


483 


j 


484 


t 

PAGE 

485 


t 


486 

0300 

DCB 


487 

0300 

DDEVIC 

. RES 

488 

0301 

DUNIT: 

. RES 

489 

0302 

DCOMND 

. RES 

490 

0303 

DSTATS 

. RES 

491 

0304 

DBUFLO 

. RES 

492 

0305 

DBUFHI 

. RES 

493 

0306 

DTIMLO 

. RES 

494 

0307 

DUNUSE 

. RES 


fU PJ 


6500 ASSEMBLER VER 1 OMR 
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1 

1 

1 


23 i SPARE 


i GLOBAL VARIABLES 
4 iSPARE 

1 i RAM SIZE (HI BYTE ONLY) 

; TOP OF AVAILABLE USER MEMORY 
;BOTTOM OF AVAILABLE USER MEMORY 
1 ;SPARE 

4 ;STATUS BUFFER 

1 ;CASSETTE BAUD RATE LOW BYTE 

1 

1 jCURSOR INHIBIT (00 ~ CURSOR ON) 

1 iKEY DELAY 

i 

1 }CHACTL REGISTER RAM 

1 / CHBAS REGISTER RAM 

5 ;SPARE BYTES 

1 

1 /ATASCII CHARACTER 

1 /GLOBAL VARIABLE FOR KEYBOARD 

1 ,RIGHT FILL DATA (DRAW) 

1 i DISPLAY FLAG . DISPLAY CNTLS IF NON-ZERO 

1 JSTART/STOP FLAG FOR PAGING (CNTL 1) CLEARE 


THREE RAM ASSIGNMENTS 


1 

1 

1 

1 

1 

1 

i 

i 


/DEVICE CONTROL BLOCK 
;PERIPHERAL UNIT 1 BUS I.D. NUMBER 
/UNIT NUMBER 
iBUS COMMAND 

f COMMAND TYPE/STATUS RETURN 
; DATA BUFFER POINTER LOW BYTE 

/DEVICE TIME OUT IN 1 SECOND UNITS 
?UNUSED BYTE 
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PAGE 


i 1 


495 

0308 

DBYTL.0 

. RES 

1 

;NUMBER OF BYTES TO BE TRANSFERRED LOW BYTE 

496 

0309 

DBYTHI 

. RES 

1 


497 

030A 

DAUX1: 

. RES 

1 

}COMMAND AUXILLARY BYTE 1 

498 

03 OB 

DAUX2: 

. RES 

1 


499 

500 

03 OC 

TIMER1 

. RES 

2 

)INITIAL TIMER VALUE 

501 

030E 

ADDCOR 

. RES 

1 

iADDITION CORRECTION 

502 

030F 

CASFLG 

. RES 

1 

iCASSETTE MODE WHEN SET 

503 

0310 

TIMER2 

. RES 

2 

jFINAL TIMER VALUE. THESE TWO TIMER VALUES 

504 


t ARE 1 

JSED TO 

COMPUTE 

INTERVAL FOR BAUD RATE 

505 

0312 

TEMPI: 

. RES 

2 

jTEMPORARY STORAGE REGISTER 

506 

0314 

TEMP2: 

. RES 

1 

iTEMPORARY STORAGE REGISTER 

507 

0315 

TEMP3: 

. RES 

1 

iTEMPORARY STORAGE REGISTER 

508 

0316 

SAVIO: 

. RES 

1 

iSAVE SERIAL IN DATA PORT 

509 

0317 

TIMFLG 

. RES 

1 

> TIME OUT FLAG FOR BAUD RATE CORRECTION 

510 

0318 

STACKP 

. RES 

1 

3SI0 STACK POINTER SAVE CELL 

511 

0319 

TSTAT: 

. RES 

1 

JTEMPORARY STATUS HOLDER 


512 

513 


514 


1 



515 

031A 

HATABS: . RES 

38 l HANDLER ADDRESS TABLE 

516 

0021 

MAXDEV = 

*-HATABS-5 i MAXIMUM HANDLER ADDRESS INDEX 

517 


J 



518 


J 

NOTE : 

THE ENTIRE IOCB DEFINITIONS HAVE BEEN MODIFIED 

519 


i 



520 


IOCB 


* iI/O CONTROL BLOCKS 

521 

0340 

ICHID 

. RES 

1 jHANDLER INDEX NUMBER (FF « IOCB FREE) 

522 

0341 

ICDNO 

. RES 

1 iDEVICE NUMBER (DRIVE NUMBER) 

523 

0342 

ICCOM 

. RES 

1 r COMMAND CODE 

524 

0343 

ICSTA 

. RES 

1 ;STATUS OF LAST IOCB ACTION 

525 

0344 

ICBAL 

. RES 

1 i BUFFER ADDRESS LOW BYTE 

526 

0345 

ICBAH 

. RES 

1 

527 

0346 

ICPTL 

. RES 

1 iPUT BYTE ROUTINE ADDRESS - 1 

528 

0347 

ICPTH 

. RES 

1 

529 

0348 

ICBLL 

. RES 

1 ;BUFFER LENGTH LOW BYTE 

530 

0349 

ICBLH 

. RES 

1 

531 

034A 

ICAX1 

. RES 

1 ;AUXILLARY INFORMATION FIRST BYTE 

532 

034B 

ICAX2 

. RES 

1 

533 

034C 

ICSPR 

. RES 

4 »FOUR SPARE BYTES 

534 

0350 


. RES 

MAX IOC-IOCBSZ 

535 





536 

03C0 

PRNBUF. . RES 

40 ;PRINTER BUFFER 

537 


i 



538 

03E8 


. RES 

21 iSPARE BYTES 

539 


f 



540 


i 



541 


I 



542 


t 



543 


> 



544 


; 



545 


) 



546 


i 

PAGE 

FOUR RAM ASSIGNMENTS 

547 


i 



548 

03FD 

CASBUF: . RES 

131 ;CASSETTE BUFFER 
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ERR LINE ADDR B1 B2 B3 B4 


i USER AREA STARTS HERE AND GOES TO END OF PAGE FIVE 
USAREA: . RES 128 ;SPARE 


PAGE FIVE RAM ASSIGNMENTS 

PAGE FIVE IS RESERVED AS A USER WORK SPACE 

NOTE: SEE FLOATING POINT SUBROUTINE AREA FDR PAGE FIVE CELLS 

PAGE SIX RAM ASSIGNMENTS 

PAGE SIX IS RESERVED AS A USER'S USER WORK SPACE 

FLOATING POINT SUBROUTINES 
FPREC = 6 i FLOATING PT PRECISION <# OF BYTES) 

J 

, IF CARRY USED THEN CARRY CLEAR »> NO ERROR, CARR 


AFP 

$0800 

i ASC11->FLOATING 

POINT <FP > 

i 

i INBUFF+CIX 

-5 FRO, CIX, 

CARRY 


J 

FASC = 

$D8E6 

i FP -> ASCII FRO- 

-> LBUFF (INBUFF) 

IFP 

$09 AA 

i INTEGER FP 



0-$FFFF (LSB,MSB) IN FRO, FR0+1->FR0 


549 

550 

551 0480 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 0006 

576 

577 

578 

579 D800 

580 

581 

582 

583 D8E6 

584 D9AA 

585 

586 

587 


588 

D9D2 

FP I 

2= 

$0902 

589 

DA60 

FSUB 

=x 

$DA60 

590 

DA66 

FADD 

= 

$DA66 

591 

DADB 

FMUL. 

XU 

$DADB 

592 

DB28 

FDIV 

“ 

$DB28 

593 

DD89 

FLOOR 

2= 

$DD89 

594 

DD8D 

FLOOR 

X". 

$DD8D 

595 

DD98 

FLD1R 

= 

$0098 

596 

DD9C 

FLD1P 


$DD9C 

597 

DDA7 

FSTOR 

2X 

$DDA7 

598 

DDAB 

FSTOP 

= 

$DDAB 

599 

DDB6 

FMOVE 

- 

$DDB6 

600 

DD40 

PLYEVL 

= 

$0040 


601 

602 


;FP INTEGER FRO -> FRO, FRO+1, CARRY 
iFRO O FRO - FR1 ,CARRY 
;FRO O FRO + FR1 , CARRY 
, FRO <— FRO * FR1 ,CARRY 
; FRO C- FRO / FR1 , CARRY 
iFLOATING LOAD REGO FRO <- <X,Y) 

; 11 ** " FRO <- (FLPTR) 

i " ,l REG1 FR1 <- <X,Y> 

; " H M FR1 <- (FLPTR) 

i FLOATING STORE REGO <X#Y) <- FRO 
, " " " (FLPTR)C— FRO 

;FR1 C- FRO 

iFRO C- P < 2) - SUM <I-N TO 0) <A(I)*Z**I) CAR 
INPUT: < X,Y) - A(N), A(N-l). . . A(0> -> PL 

ACC = # OF COEFFICIENTS - DEGRE 
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603 


I 



FRO » Z 

604 

DDCO 

EXP 

S= 

*DDCO 

FRO O E**FRO = EXP 10(FRO * LOGIO(E)) CARRY 

605 

DDCC 

EXP 10 

= 

*DDCC 

FRO <- 10**FR0 CARRY 

606 

DECD 

LOG 

3= 

*DECD 

FRO LN(FRO) ® LOGIO(FRO)/LOGIO(E) CARRY 

607 

DED1 

LOG 10 

= 

*DED1 

FRO <- LOG10 (FRO) CARRY 

60S 


; 




609 


j THE FOLLOWING 

ARE IN BASIC 

CARTRIDGE: 

610 


i 




611 

BD81 

SIN 

— 

*13081 

FRO C- SIN(FRO> DEGFLG-0 =>RADS, 60DEG, CA 

612 

BD73 

COS 

= 

*BD73 

FRO <- COS(FRO) CARRY 

613 

BE43 

AT AN 

5= 

*BE43 

FRO <- AT AN(FRO) CARRY 

614 

BEB 1 

SQR 

= 

*BEB1 

FRO <- SQUAREROOT ( FRO) CARRY 

615 






616 


iFLOATING POINT 

ROUTINES ZERO PAGE (NEEDED ONLY IF F. P. ROUTINES ARE CAL 

617 


i 




618 



*=*D4 



619 

00D4 

FRO: 

. RES 

FPREC i FP REGO 

620 

OODA 

FRE: 

. RES 

FPREC 


621 

OOEO 

FR 1 ; 

. RES 

FPREC 

FP REG1 

622 

00E6 

FR2: 

. RES 

FPREC 


623 

OOEC 

FRX: 

. RES 

1 

FP SPARE 

624 

OOED 

EEXP: 

. RES 

1 

VALUE OF E 

625 

OOEE 

NSIGN: 

. RES 

1 

SIGN OF * 

626 

OOEF 

ESIGN: 

. RES 

1 

SIGN OF EXPONENT 

627 

OOFO 

FCHRFLG 

. RES 

1 

1 ST CHAR FLAG 

628 

OOF 1 

DIGRT: 

, RES 

1 

# OF DIGITS RIGHT OF DECIMAL 

629 

00F2 

Cl X : 

. RES 

1 

CURRENT INPUT INDEX 

630 

00F3 

INBUFF: 

. RES 

2 

POINTS TO USER'S LINE INPUT BUFFER 

631 

OOF 5 

ZTEMP1: 

. RES 

2 


632 

00F7 

ZTEMP4: 

. RES 

2 


633 

00F9 

ZTEMP3: 

. RES 

2 


634 

OOFB 

DEGFLG 




635 

OOFB 

RADFLG: 

. RES 

1 

0 =RADIANSi 6=DEGREES 

636 

0000 

RADON 

= 

0 

i INDICATES RADIANS 

637 

0006 

DEGON 

s= 

6 

INDICATES DEGREES 

638 

OOFC 

FLPTR : 

. RES 

2 

i POINTS TO USER'S FLOATING PT NUMBER 

639 

OOFE 

FPTR2: 

. RES 

2 


640 






641 


;FLOATING PT ROUTINES ' NON-ZERO PAGE RAM (NEEDED ONLY IF F. P. ROUTINES C 

642 


; 




643 



*=*57E 



644 

057E 

LBPRI: 

. RES 

1 

; LBUFF PREFIX 1 

645 

057F 

LBPR2: 

. RES 

1 

LBUFF PREFIX 2 

646 

0580 

LBUFF: 

. RES 

128 

; LINE BUFFER 

647 

05E0 

PLYARG 

= 

LBUFF+*60 

i POLYNOMIAL ARGUMENTS 

648 

05E6 

FPSCR 

=r 

PLYARG+FPREC 


649 

05EC 

FPSCR1 


FPSCR+FPREC 


650 

05E6 

FSCR 

= 

FPSCR 


651 

05EC 

FSCR1 

= 

FPSCR 1 


652 

05FF 

LBFEND 

= 


END OF LBUFF 

653 






654 






655 






656 
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PAGE 

657 


i 





658 


4 





659 


1 





660 


i 





661 


i 





662 


j 

COLLEEN MNEMONICS 



663 


J 





664 

D200 

POKEY 

2= 

*D200 

i VBLANK ACTION: 

DESCRIPTION: 

665 

D200 

PQTO 

2= 

POKEY+O 

; POTO—>PADDL0 

0-227 IN RAM CELL 

666 

D201 

P0T1 

2= 

POKEY+1 

i POT1—>PADDL1 

0-227 IN RAM CELL 

667 

D202 

P0T2 

2= 

POKEY+2 

i P0T2—>PADDL2 

0-227 IN RAM CELL 

668 

D203 

P0T3 

= 

POKEY+3 

i P0T3—>PADDL3 

0—227 IN RAM CELL 

669 

D204 

P0T4 


POKEY+4 

i P0T4—>PADDL4 

0-227 IN RAM CELL 

670 

D205 

POTS 

” 

POKEY+5 

iPOTS—>PADDL5 

0-227 IN RAM CELL 

671 

D206 

POT 6 


POKEY+6 

i P0T6—>PADDL6 

0-227 IN RAM CELL 

672 

D207 

P0T7 

= 

POKEY+7 

; P0T7—>PADDL7 

0-227 IN RAM CELL 

673 

D208 

ALLPOT 

- 

POKEY+8 

; 0 ?■? 


674 

D209 

KBCODE 

=T 

POKEY+9 



675 

D20A 

RANDOM 

= 

POKEY+10 



676 

D20B 

POTGO 

= 

POKEY+11 

iSTROBED 


677 

D20D 

SERIN 

2= 

POKEY+13 



678 

D20E 

IRGST 

= 

POKEY+14 



679 

D20F 

SKSTAT 

- 

POKEY+1 5 



680 

D200 

AUDF1 

2T 

POKEY+O 



681 

D201 

AUDC1 

2 : 

POKEY+1 



682 

D202 

AUDF2 

2= 

POKEY+2 



683 

D203 

AUDC2 

2= 

POKEY+3 



684 

D204 

AUDF3 

= 

POKEY+4 



685 

D205 

AUDC3 

— 

POKEY+5 



686 

D206 

AUDF4 

2S 

POKEY+6 



687 

D207 

AUDC4 

2= 

POKEY+7 



688 

D208 

AUDCTL 

= 

POKEY+8 

i NONE 

AUDCTLC—CSI03 

689 

D209 

STIMER 

= 

POKEY+9 



690 

D20A 

SKRES 

2= 

POKEY+10 

; NONE 

SKR ESC—CSIOJ 

691 

D20D 

SEROUT 

2= 

POKEY+13 

; NONE 

SEROUT<—CSIOI 

692 

D20E 

IRQEN 

=2 

POKEY+14 

i POKMSK—>IRQEN 

(AFFECTED BY OPEN 

693 

D20F 

SKCTL 

=2 

POKEY+15 

;SSKCTL—>SKCTL 

SSKCTLC—CSIOI 

694 


J 





695 

DOOO 

CTIA 

“ 

$DQQQ 

;VBLANK ACTION: 

DESCRIPTION: 

696 

DOOO 

HPOSPO 


CTIA+O 



697 

D001 

HPOSP1 

= 

CTIA+1 



698 

DO 02 

HP0SP2 

= 

CTIA+2 



699 

D003 

HPOSP3 

2= 

CTIA+3 



700 

D004 

HPOSMO 

2= 

CTIA+4 



701 

D005 

HP0SM1 

” 

CTIA+5 



702 

D006 

HP0SM2 

2= 

CTIA+6 



703 

D007 

HP0SM3 

2= 

CTIA+7 



704 

D008 

SIZEPO 


CTIA+8 



705 

D009 

SIZER 1 

= 

CTIA+9 



706 

DOOA 

SIZEP2 


CTIA+10 



707 

DOOB 

SIZEP3 

” 

* CTXA+11 



708 

DOOC 

SIZEM 


CTIA+12 



709 

DOOD 

GRAFPO 

“ 

CTIA+13 



710 

DOOE 

ORAFP1 

2= 

CTIA+14 




OR 


15 


ERR LINE 

ADDR B1 B2 B3 B4 
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711 

DOOF 

GRAFP2 


CTIA+15 


712 

D010 

GRAFP3 

m 

CTIA+16 


713 

DOU 

GRAFM 

= 

CTIA+17 


714 

D012 

COLPMO 

=s 

CTIA+18 

iPCOLRO—>COLPMO 

715 

D013 

C0LPM1 

= 

CTIA+19 

;PC0LR1—>C0LPM1 

716 

DO 14 

C0LPM2 

= 

CTIA+20 

;PC0LR2—>C0LPM2 

717 

D01 5 

C0LPM3 


CTIA+21 

;PC0LR3—>C0LPM3 

718 

DO 16 

COL.PFO 

-- 

CTIA+22 

;COLORO—>COLPFO 

719 

DO 17 

COLPF1 


CTIA+23 

iCOLOR 1—>C0LPF1 

720 

DO IS 

C0LPF2 

= 

CTIA+24 

t C0LQR2—>C0LPF2 

721 

DO 19 

C0LPF3 

= 

CTIA+25 

iC0L0R3—>C0LPF3 

722 

D01A 

COLBK 

= 

CTIA+26 

;COLOR4—>COLBK 

723 

D01B 

PRIOR 


CTIA+27 

y < ON OPEN S: OR 

724 

D01C 

VDELAY 

— 

CTIA+28 


725 

DO ID 

GRACTL 

= 

CTIA+29 


726 

D01E 

HITCLR 

= 

CTIA+30 


727 

DO IF 

CONSOL 

-- 

CTIA+31 

;$08—>CONSOL 

728 

DOOO 

MOPF 

= 

CTIA+O 


729 

D001 

M1PF 

— 

CTIA+1 


730 

D002 

M2PF 


CTIA+2 


731 

D003 

M3PF 

= 

CTIA+3 


732 

D004 

POPF 

5= 

CTIA+4 


733 

D005 

P1PF 

S= 

CTIA+5 


734 

D006 

P2PF 

= 

CTIA+6 


735 

D007 

P3PF 


CTIA+7 


736 

D008 

MOPL 

= 

CTIA+S 


737 

D009 

Ml PL 


CTIA+9 


738 

DOOA 

M2PL 

- 

CTIA+10 


739 

DOOB 

M3PL 


CTIA+11 


740 

DOOC 

POPL 

= 

CTIA+12 


741 

DOOD 

P1PL 

=s 

CTIA+13 


742 

DOOE 

P2PL 

m 

CTIA+14 


743 

DOOF 

P3PL 


CTIA+15 


744 

DO 10 

TRIGO 

m 

CTIA+16 

j TRIGO—>STRIGO 

745 

D011 

TRIG! 

= 

CTIA+17 

; TRIG1—>STRIG1 

746 

DO 12 

TRIG2 

= 

CTIA+13 

i TRIG2—>STRIG2 

747 

DO 13 

TRIG3 


CTIA+19 

; TRIG3—>STRIG3 

748 


} 




749 

D400 

ANTIC 

= 

$D400 

i VBLANK ACTION 

750 

D400 

DMACTL 

= 

ANTIC+O 

JDMACTL<—SDMCTL 

751 

D401 

CHACTL. 

= 

ANTIC+1 

; CHACTLC—CHACT 

752 

D402 

DLISTL 

= 

ANTIC+2 

; DLISTL<—SDLSTL 

753 

D403 

DLISTH 

- 

ANTIC+3 

J DLISTHC—SDLSTH 

754 

D404 

HSCROL 

= 

ANTIC+4 


755 

D405 

VSCROL 


ANTIC+5 


756 

D407 

PMBASE 

- 

ANTIC+7 


757 

D409 

CHBASE 


ANTIC+9 

> CHBASEC—CHBAS 

758 

D40A 

WSYNC 

= 

ANTIC+10 


759 

D40B 

VCOUNT 

= 

ANTIC+11 


760 

D40C 

PENH 

— 

ANTIC+12 


761 

D40D 

PENV 


ANTIC+13 


762 

D40E 

NMIEN 

m 

ANTIC+14 

; NMIENC—40 

763 

D40F 

NMIRES 

= 

ANTIC+15 

J STROBED 

764 

D40F 

NM 1ST 


ANTIC+15 



PAGE 


WITH ATTRACT MODE 
WITH ATTRACT MODE 
WITH ATTRACT MODE 
WITH ATTRACT MODE 
WITH ATTRACT MODE 
WITH ATTRACT MODE 
WITH ATTRACT MODE 
WITH ATTRACT MODE 
WITH ATTRACT MODE 
) GPRIOR—>PRIOR 


TURN OFF SPEAKER 


DESCRIPTION 
ON OPEN S: OR E 
ON OPEN S: OR E 
ON OPEN S: OR E 
ON OPEN S: OR E 


ON OPEN S; OR E: 


POWER ON AND CSETVBV3 





FAGE 


16 


ERR LINE 

APDR B1 E2 B3 B4 


765 

D300 

P IA 

766 

D300 

PORTA 

767 

D301 

PQRTB 

768 

0302 

PACTL 

769 

D303 

PBCTL « 

770 


4 

771 


i 

772 


i 

773 


i .PAGE 


6500 ASSEMBLER VER 1. OMR 


$0300 

;VBLANK 

ACTION 

DESCRIPTION 

PIA+O 

;PORTA— 

~>STICKO,1 

X-Y CONTROLLERS 

PIA+1 

i PORTE — 

->STICK2i3 

X~Y CONTROLLERS 

PIA+2 

; NONE 


PACTL<—3C l INIT3 

PIA+3 

i NONE 


PBCTL<—3C UNIT] 





ERR LINE ADDR B1 B2 B3 B4 


6500 ASSEMBLER VER 1. OMR 


PAGE 


17 


774 



. PAGE 



775 



LIST 

S 


776 



TITLE 

'CENTRAL 

INPUT/OUTPUT (CIO) 2-7-79' 

777 


i 


UPDATED 

BY AL MILLER 3-9-79 

778 

0030 

ASCZER 

= 

'0 

; ASCII ZERO 

779 

003A 

COLON 


*3A 

i ASCII COLON 

780 

00913 

EOL 


*9B 

; END OF RECORD 



LINE 

ADDR 

B1 

B2 

B3 B4 

CENTRAL INPUT/OUTPUT (CIO) 

2-7-79 



781 





. PAGE 




782 









783 





CIO JUMP VECTOR FOR USERS 




784 





*=CIOV 




785 

E456 

4C 

C4 

E4 

JMP CIO 

iGO TO CIO 



786 









787 





CIO INIT JUMP VECTOR FOR POWER UP 



788 





*=CIOINV 




789 

E46E 

40 

A6 

E4 

JMP CIOINT 

iGO TO INIT 



790 









791 









792 





ERROR ROUTINE ADDRESS EQUATE 



793 





ERRTNH-ERRTN/256 

"MOVED TO LINE 

788" 


794 





ERRTNL=-ERRTNH*256+ERRTN 

"MOVED TO LINE 

789" 


795 









796 









797 





*=CIOORG 




798 









799 





CIO INITIALIZATION (CALLED BY MONITOR AT 

POWER 

UP) 

800 

E4A6 

A2 

00 

CIOINT: LDX #0 




801 

E4A8 

A9 

FF 

CIQI1. LDA #IQCFRE 

iSET ALL IOCB' 

B TO FREE 

802 

E4AA 

9D 

40 

03 

STA ICHID, X 

iBY SETTING HANDLER 

ID'S=*FF 

803 

E4AD 

A9 

CO 


LDA #ERRTNL 




804 

E4AF 

9D 

46 

03 

STA ICPTL/X 

;POINT PUT TO 

ERROR 

ROUTINE 

805 

E4B2 

A9 

E4 


LDA #ERRTNH 




806 

E4B4 

9D 

47 

03 

STA ICPTHjX 




807 

E4B7 

8A 



TXA 




808 

E4B8 

18 



CLC 




809 

E4B9 

69 

10 


ADC #IOCBSZ 

iBUMP INDEX BY 

SIZE 


810 

E4BB 

AA 



TAX 




811 

E4BC 

09 

80 


CMP #MAXIOC 

iDONE? 



812 

E4BE 

90 

E8 


BCC CI0I1 

; NO 



813 

E4C0 

60 



RTS 

iYES; RETURN 



814 









815 




i ERROR ROUTINE FOR ILLEGAL 

PUT 



816 

E4C0 



ERRTN-*-1 




817 

00E4 



ERRTNH=ERRTN/256 




818 

ooco 



ERRTNL=<-ERRTNH)*256+ERRTN 




819 

E4C1 

AO 

85 


LDY #NOTOPN 

i IOCB NOT OPEN 



820 

E4C3 

60 



RTS 





PAGE 




PAGE 


ERR LINE 

ADDR 

B1 

82 

B3 B4 

CENTRAL INPUT/OUTPUT (CIO) S 

!-7~79 

821 





PAGE 




822 





s 




823 





i CIO LOCAL RAM (USES SPARE BYTES IN ZERO PAGE IOCB) 

824 

002C 




ENTVEC * 

ICSPRZ 



825 





; 




826 





; CIO MAIN ROUTINE 



827 









828 





i CIO INTERFACES BETWEEN 

USER AND INPUT/OUTPUT DE 

829 

E4C4 

85 

2F 


CIO: STA 

CIOCHR 

; 

SAVE POSSIBLE OUTPUT CHARACTER 

830 

E4C6 

86 

2E 


STX 

ICIDNO 

; 

SAVE IOCB NUMBER * N 

831 









832 





, CHECK FOR LEGAL IOCB 



833 

E4C8 

8 A 



TXA 




834 

E4C9 

29 

OF 


AND 

#*F 

; 

IS IOCB MULTIPLE OF 16? 

835 

E4CB 

DO 

04 


BNE 

CIERR1 

i 

NO/ ERROR 

836 

E4CD 

EO 

80 


CPX 

#MAXIOC 

; 

IS INDEX TOO LARGE? 

837 

E4CF 

90 

05 


BCC 

IOCI 

# 

NO 

838 









839 





i INVALID IOCB 

NUMBER — 

RETURN ERROR 

840 

E4D1 

AO 

86 


CIERR1* LDY 

#EADIOC 


ERROR CODE 

841 

E4D3 

4C 

IB 

E6 

JMP 

CIRTN1 

;RETURN 

842 





> 




843 





, MOVE USER IOCB TO ZERO 

PAGE 

844 

E4D6 

AO 

00 


IOCi LDY 

#0 



845 

E4D8 

BD 

40 

03 

IQC1A: LDA 

IOCB*X 


USER IOCB 

846 

E4DB 

99 

20 

00 

STA 

IOCBAS/ Y 


TO ZERO PAGE 

847 

E4DE 

E8 



INX 



848 

E4DF 

C8 



I NY 




849 

E4E0 

CO 

OC 


CPY 

#12 


12 BYTES 

850 

E4E2 

90 

F4 


BCC 

IOCI A 



851 





/ 




852 





» COMPUTE CIO 

INTERNAL VECTOR FOR COMMAND 

853 

E4E4 

AO 

84 


LDY 

#NVALID 


ASSUME INVALID CODE 

854 

E4E6 

A5 

22 


LDA 

ICCOMZ 


COMMAND CODE TO INDEX 

855 

E4E.8 

C9 

03 


CMP 

#OPEN 


IS COMMAND LEGAL? 

856 

E4EA 

90 

25 


BCC 

CIERR4 


NO 

857 

E4EC 

A8 



TAY 




858 





t 




859 





; MOVE COMMAND 

TO ZERO BASE FOR INDEX 

860 

E4ED 

CO 

OE 


CPY 

#SPECIL 


IS COMMAND SPECIAL? 

861 

E4EF 

90 

02 


BCC 

I0C2 


NO 

862 

E4F1 

AO 

OE 


LDY 

#SPECIL 


YES/ SET SPECIAL OFFSET INDEX 

863 

E4F3 

84 

17 


I0C2: STY 

ICCOMT 


SAVE COMMAND FOR VECTOR 

864 

E4F5 

B9 

C6 

E6 

LDA 

COMTAB-3 

Y 

GET VECTOR OFFSET FROM TABLE 

865 

E4F8 

FO 

OF 


BEG 

CI OP EN 


GO IF OPEN COMMAND 

866 

E4FA 

C9 

02 


CMP 

#2 


IS IT CLOSE? 

867 

E4FC 

FO 

35 


BEG 

CICLOS 


YES 

868 

E4FE 

C9 

08 


CMP 

#8 


IS IT STATUS OR SPECIAL? 

869 

E500 

BO 

4C 


BC3 

CISTSP 


YES 

870 

E502 

C9 

04 


CMP 

#4 


IS IT READ? 

871 

E504 

FO 

63 


BEG 

CIREAD 


YES 

872 

E506 

4C 

C9 

E5 

JMP 

CIWRIT 


ELSE/ MUST BE WRITE 


1? 




LINE 

ADDR 

B1 

B2 

B3 B4 

CENTRAL 

. INPUT/OUTPUT <CIO> 2-7-79 

873 






. PAGE 



874 





J 




875 





i OPEN COMMAND 



876 









S77 





; FIND DEVICE HANDLER IN 

HANDLER ADDRESS TABLE 

878 

E509 

A5 

20 


ClOPEN: 

LDA 

ICHIDZ 

iGET HANDLER ID 

879 

E50B 

C9 

FF 



CMP 

#IOCFRE 

i IS THIS IOCB CLOSED? 

880 

E50D 

F0 

05 



BEG 

I0C6 

i YES 

881 





> 




882 





j ERROR 

— IOCB 

ALREADY 

OPEN 

883 

E50F 

AO 

81 


CIERR3: 

LDY 

ttPRVOPN 

iERROR CODE 

884 

E511 

4C 

IB 

E6 

CIERR4: 

JMP 

CIRTN1 

RETURN 

885 









886 





, GO FIND DEVICE 


887 

E514 

20 

9E 

E6 

I0C6: 

JSR 

DEVSRC 

;CALL DEVICE SEARCH 

888 

E517 

BO 

F8 



BCS 

CIERR4 

;GO IF DEVICE NOT FOUND 

889 





; 




890 





; DEVICE FOUND. 

INITIALIZE IOCB FOR OPEN 

891 





f 




892 





? COMPUTE HANDLER ENTRY 

POINT 

893 

E519 

20 

3D 

E6 

10C7: 

JSR 

COMENT 


894 

E51C 

BO 

F3 



BCS 

CIERR4 

>GO IF ERROR IN COMPUTE 

895 





J 




896 





i GO TO 

HANDLER 

FOR INITIALIZATION 

897 

E51E 

20 

89 

E6 


JSR 

GOHAND 

USE INDIRECT JUMP 

898 





* 




899 





; STORE 

PUT BYTE ADDRESS 

-1 INTO IOCB 

900 

E521 

A9 

OB 



LDA 

#PUTCHR 

■•SIMULATE PUT CHARACTER 

901 

E523 

85 

17 



STA 

ICCOMT 


902 

E525 

20 

3D 

E6 


JSR 

COMENT 

iCOMPUTE ENTRY POINT 

903 

E528 

A5 

2C 



LDA 

ICSPRZ 

> MOVE COMPUTED VALUE 

904 

E52A 

85 

26 



STA 

ICPTLZ 

i TO PUT BYTE ADDRESS 

905 

E52C 

A5 

2D 



LDA 

ICSPR2+1 


906 

E52E 

85 

27 



STA 

ICPTHZ 


907 

E530 

4C 

ID 

E6 


JMP 

CIRTN2 

;RETURN TP USER 


PAGE 


LINE 

ADDR 

B1 

B2 

B3 B4 

CENTRAL INPUT/OUTPUT (CIO) 

2-7-79 

908 






. PAGE 



909 





1 




910 





s 




91 1 





i CLOSE 

COMMAND 



912 

E533 

AO 

01 


CICLOS: 

/LDY 

#SUCCES 

J ASSUME GOOD CLOSE 

913 

E535 

84 

23 



STY 

ICSTAZ 


914 

E537 

20 

3D 

E6 


JSR 

COMENT 

i COMPUTE HANDLER ENTRY POINT 

915 

E53A 

BO 

03 



BCS 

CICL02 

;GO IF ERROR IN COMPUTE 

916 

E53C 

20 

89 

E6 


JSR 

GOHAND 

l GO TO HANDLER TO CLOSE DEVICE 

917 

E53F 

A9 

FF 


CICL02: 

LDA 

#IOCFRE 

i GET IOCB "FREE" VALUE 

918 

E541 

85 

20 



STA 

ICHIDZ 

iSET HANDLER ID 

919 

E543 

A9 

E4 



LDA 

#ERRTNH 


920 

E545 

85 

27 



STA 

ICPTHZ 

* SET PUT BYTE TO POINT TO ERROR 

921 

E547 

A9 

CO 



LDA 

#ERRTNL 


922 

E549 

85 

26 



STA 

ICPTLZ 


923 

E54B 

4C 

ID 

E6 


JMP 

CIRTN2 

;RETURN 

924 





J 




925 





i 




926 





i STATUS AND SPECIAL REQUESTS 

927 





i DO IMPLIED OPEN IF NECESSARY AND GO TO DEVICE 

928 

E54E 

A5 

20 


CISTSP: 

LDA 

ICHIDZ 

t IS THERE A HANDLER ID? 

929 

E550 

C9 

FF 



CMP 

#IOCFRE 


930 

E552 

DO 

05 



BNE 

CIST1 

i YES 

931 









932 





i IOCB 

IS FREE, 

DO IMPLIED 

OPEN 

933 

E554 

20 

9E 

E6 


JSR 

DEVSRC 

; FIND DEVICE IN TABLE 

934 

E557 

BO 

BQ 



BCS 

CIERR4 

; GO IF ERROR IN COMPUTE 

935 









936 





; COMPUTE AND GO TO ENTRY POINT IN HANDLER 

937 

E559 

20 

3D 

E6 

CIST1: 

JSR 

COMENT 

jCOMPUTER HANDLER ENTRY VECTOR 

938 

E55C 

20 

89 

E6 


JSR 

GOHAND 

{ GO TO HANDLER 

939 









940 





> RESTORE HANDLER INDEX (DO 

IMPLIED CLOSE) 

941 

E55F 

A6 

2E 



LDX 

ICIDNO 

lIOCB INDEX 

942 

E561 

BD 

40 

03 


LDA 

ICHID, X 

jGET ORIGINAL HANDLER ID 

943 

E564 

85 

20 



STA 

ICHIDZ 

;RESTORE ZERO PAGE 

944 

E 566 

4C 

ID 

E6 


JMP 

CIRTN2 

}RETURN 


PAGE 



ERR LINE 

ADDR 

B1 

B2 

B3 B4 

CENTRAL INPUT/OUTPUT (CIO) 

2-7-79 

945 





. PAGE 



946 





f 



947 





i READ — DO GET COMMANDS 


948 

E569 

A 5 

22 


CIREAD: LDA 

ICCOMZ 

;GET COMMAND BYTE 

949 

E56B 

25 

2A 


AND 

ICAX1Z 

;IS THIS READ LEGAL? 

950 

E56D 

DO 

05 


BNE 

RCI1A 

; YES 

951 





5 



952 





> ILLEGAL READ 

— IQCB OPENED FOR WRITE ONLY 

953 

E56F 

AO 

83 


LDY 

#WRONLY 

iERROR CODE 

954 

E571 

40 

IB 

E6 

RCI1B: JMP 

CIRTN1 

>RETURN 

955 





j 



956 





; COMPUTE AND CHECK ENTRY POINT 

957 

E574 

20 

3D 

E6 

RCI1A: JSR 

COMENT 

;COMPUTE ENTRY POINT 

958 

E577 

BO 

F8 


BCS 

RC'IIB 

;GO IF ERROR IN COMPUTE 

959 





i 



960 





> GET RECORD OR 

CHARACTERS 


961 

E579 

A5 

28 


LDA 

ICBLLZ 


962 

E57B 

05 

29 


ORA 

ICBLLZ+1 

;IS BUFFER LENGTH ZERO? 

963 

E57D 

DO 

08 


BNE 

RC 13 

! NO 

964 

E57F 

20 

89 

E6 

JSR 

GOHAND 


965 

E582 

85 

2F 


STA 

CIOCHR 


966 

E584 

4C 

ID 

E6 

JMP 

CIRTN2 


967 





/ 



968 





5 LOOP TO FILL 

BUFFER OR END RECORD 

969 

E587 

20 

89 

E6 

RC13: JSR 

GOHAND 

;GO TO HANDLER TO GET BYTE 

970 

E58A 

85 

2F 


STA 

CIOCHR 

;SAVE BYTE 

971 

E58C 

30 

35 


BMI 

RC 14 

;END TRANSFER IF ERROR 

972 

ESSE 

AO 

00 


LDY 

#0 


973 

E590 

91 

24 


STA 

(ICBALZ > . Y 

.PUT BYTE IN USER BUFFER 

974 

E592 

20 

70 

E6 

JSR 

INCBFP 

.INCREMENT BUFFER POINTER 

975 

E595 

A5 

22 


LDA 

ICCOMZ 

iGET COMMAND CODE 

976 

E597 * 

29 

02 


AND 

#2 

;IS IT GET RECORD? 

977 

E599 

DO 

OC 


BNE 

RC 11 

; NO 

978 





i 



979 





J CHECK FOR EOL 

ON TEXT RECORDS 

980 

E59B 

A5 

2F 


LDA 

CIOCHR 

iGET BYTE 

981 

E59D 

09 

9B 


CMP 

ttEOL 

iIS IT AN EOL? 

982 

E59F 

DO 

06 


BNE 

RC 11 

; NO 

983 

E5A1 

20 

63 

E6 

JSR 

DECBFL 

JYES. DECREMENT BUFFER LENGTH 

984 

E5A4 

40 

03 

E5 

JMP 

RC 14 

iEND TRANSFER 

985 





J 



986 





; CHECK BUFFER 

FULL 


987 

E5A7 

20 

63 

E6 

RCI1 JSR 

DECBFL 

;DECREMENT BUFFER LENGTH 

988 

E5AA 

DO 

DB 


BNE 

RC 13 

iCONTINUE IF NON ZERO 


■ _:_i_:__L1_________:_ •* - • iiMt • ili mwi—^ r i ~i —rmaa ii atu ■'■m 


PAGE 






ERR LINE ADDR B1 132 B3 B4 


CENTRAL INPUT/DUTPUT (CIO) 2-7-79 


PAGE 


23 


989 .PAGE 

990 j 

991 i BUFFER FULL, RECORD NOT ENDED 

992 ) DISCARD BYTES UNTIL END OF RECORD 


993 

E5AC 

A5 

22 


RC 12: 

LDA 

ICCOMZ 

;GET COMMAND BYTE 

994 

E5AE 

29 

02 



AND 

#2 

iTS IT GET CHARACTER? 

995 

E5B0 

DO 

U 



BNE 

RC 14 

> YES, END TRANSFER 

996 





, 




997 





, LOOP 

TO WAIT 

FOR EOL 


998 

E5B2 

20 

S9 

E6 

RC 16: 

JSR 

GOHAND 

? GET BYTE FROM HANDLER 

999 

E5B5 

85 

2F 



8T A 

CIDCHR 

iSAVE CHARACTER 

1000 

E5B7 

30 

OA 



BMI 

RC 14 

iGO IF ERROR 

1001 









1002 





; TEXT 

RECORD, 

WAIT FOR 

EOL 

1003 

E5B9 

A5 

2F 



LDA 

CIOCHR 

t GET GOT BYTE 

1004 

E5BB 

C9 

9B 



CMP 

#EOL 

iIS IT EOL? 

1005 

E5BD 

DO 

F3 



BNE 

RC 16 

t NO, CONTINUE 

1006 





i 




1007 





i END 

OF RECORD, BUFFER 

FULL — SEND TRUNCATED RECORD 

1008 

E5BF 

A9 

89 


RC Ill' 

LDA 

ttTRNRCD 

;ERROR CODE 

1009 

E5C 1 

85 

23 



STA 

ICSTAZ 

;STORE IN IOCB 

1010 









101 1 





i TRANSFER DONE 


1012 

E5C3 

20 

77 

E6 

RC 14: 

JSR 

SUB-BFL 

SET FINAL BUFFER LENGTH 

1013 

E5C6 

4C 

ID 

E6 


JMP 

CIRTN2 

)RETURN 


ERR LINE 

ADDR 

B1 

B2 

B3 B4 

CENTRAL INPUT/OUTPUT (CIO) 

2-7-79 

1014 





. PAGE 



1015 





t 



1016 





; WRITE — DO 

PUT COMMANDS 


1017 

E5C9 

A5 

22 


CIWRIT: LDA 

ICCOMZ 

; GET COMMAND BYTE 

1018 

E5CB 

25 

2A 


AND 

ICAX 1Z 

;IS THIS WRITE LEGAL? 

1019 

E5CD 

DO 

05 


BNE 

WCI1A 

; YES 

1020 





; 



1021 





; ILLEGAL WRITE — DEVICE OPENED FOR READ ONLY 

1022 

E5CF 

AO 

87 


LDY 

tf-RDONLY 

;ERROR CODE 

1023 

E5D1 

4C 

IB 

E6 

WCI1B- JMP 

CIRTN1 

;RETURN 

1024 





J 



1025 





i COMPUTE AND 

CHECK ENTRY POINT 

1026 

E5D4 

20 

3D 

E6 

WCU A; JSR 

COMENT 

.COMPUTE HANDLER ENTRY POINT 

1027 

E5D7 

BO 

F8 


BCS 

WCI1D 

i GO IF ERROR IN COMPUTE 

102S 





j 



1029 





j PUT RECORD OR CHARACTERS 


1030 

E5D9 

A5 

28 


LDA 

ICBLLZ 


1031 

E5DB 

05 

29 


ORA 

ICBLLZ+1 

;IS BUFFER LENGTH ZERO? 

1032 

E5DD 

DO 

06 


BNE 

WC 13 

> NO 

1033 

E5DF 

A5 

2F 


LDA 

CIOCHR 

iGET CHARACTER 

1034 

E5E1 

E6 

28 


INC 

ICBLLZ 

.SET BUFFER LENGTH*1 

1035 

E5E3 

DO 

06 


BNE 

WCI4 

; THEN JUST TRANSFER ONE BYTE 

1036 





j 



1037 





i LOOP TO TRANSFER BYTES FROM BUFFER TO HANDLER 

1038 

E5E5 

AO 

00 


WC13: LDY 

#0 


1039 

E5E7 

B1 

24 


LDA 

< ICBALZ ), Y 

J GET BYTE FROM BUFFER 

1040 

E5E9 

85 

2F 


BTA 

CIOCHR 

; SAVE 

1041 

E5EB 

20 

89 

E6 

WC14: JSR 

GOHAND 

;GO PUT BYTE 

1042 

E5EE 

30 

25 


BMI 

WC I 5 

;END IF ERROR 

1043 

E5F0 

20 

70 

E6 

JSR 

INCBFP 

;INCREMENT BUFFER POINTER 

1044 





J 



1045 





; CHECK FOR TEXT RECORD 


1046 

E5F3 

A5 

on 


LDA 

ICCOMZ 

iGET COMMAND BYTE 

1047 

E5F5 

29 

02 


AND 

#2 

>IS IT PUT RECORD? 

1048 

E5F7 

DO 

oc 


BNE 

wen 

; NO 

1049 





i 



1050 





i TEXT RECORD 

— CHECK FOR 

EOL TRANSFER 

1051 

E5F9 

A5 

2F 


LDA 

CIOCHR 

;GET LAST CHARACTER 

1052 

E5FB 

C9 

9B 


CMP 

#EOL 

iIS IT AN EOL? 

1053 

E5FD 

DO 

06 


BNE 

wen 

i NO 

1054 

E5FF 

20 

63 

E6 

JSR 

DECBFL 

;DECREMENT BUFFER LENGTH 

1055 

E602 

4C 

15 

E6 

JMP 

WC I 5 

jEND TRANSFER 

1056 





} 



1057 





i CHECK FOR BUFFER EMPTY 


1058 

E605 

20 

63 

E6 

WCU' JSR 

DECBFL 

;DECREMENT BUFFER LENGTH 

1059 

E608 

DO 

DE 


BNE 

WC 13 

;CONTINUE IF NON ZERO 




LINE 

AD DR 

31 

B 2 

83 B4 

CENTRAL INPUT/OUTPUT (CIO) 

2 — 7-79 

1060 






. PAGE 



1061 





i 




1062 





1 BUFFER EMPTY* 

RECORD NOT 

FILLED 

1063 





i CHECK TYPE OF 

TRANSFER 


1064 

E60A 

A5 

22 


WC 12: 

LDA 

ICCOMZ 

JGET COMMAND CODE 

1065 

E60C 

29 

02 



AND 

#2 

l IS IT PUT CHARACTER? 

1066 

E60E 

DO 

05 



BNE 

WC I 5 

J YES* END TRANSFER 

1067 





$ 




1068 





; PUT 

RECORD (TEXT)* BUFFER 

EMPTY* SEND EOL 

1069 

E610 

A9 

9B 



LDA 

#EOL 


1070 

E612 

20 

89 

E 6 


JSR 

GOHAND 

1 GO TO HANDLER 

1071 





1 




1072 





* END 

PUT TRANSFER 


1073 

E615 

20 

77 

E 6 

WC 15; 

JSR 

SUBBFL 

* SET ACTUAL PUT BUFFER LENGTH 

1074 

E61S 

4C 

ID 

E 6 


JMP 

CIRTN2 

i RETURN 


ERR LINE ADDR B1 B2 B3 B4 CENTRAL INPUT/OUTPUT <CIO> 2-7-79 PAGE 26 

1075 . PAGE 

1076 » 

1077 ; CIO RETURNS 


1078 





; RETURNS WITH 

Y=STATUS 


1079 

£61B 

84 

23 


CIRTN1: STY 

ICSTAZ ; 

SAVE STATUS 

1080 








1081 





; RETURNS WITH 

STATUS STORED 

IN ICSTAZ 

1082 





i MOVE 1OC0 IN 

ZERO PAGE RACK 

, TO USER AREA 

1083 








1084 

E61D 

A4 

2E 


CIRTN2: LDY 

ICIDNQ ; 

GET IOCB INDEX 

1085 

E61F 

09 

44 

03 

LDA 

ICBALiY 


1086 

E622 

85 

24 


STA 

ICRALZ i 

RESTORE USER DUFFER POINTER 

1087 

E624 

09 

45 

03 

LDA 

ICBAH/Y 


1088 

E627 

85 

25 


STA 

ICBAHZ 


1089 

E629 

A2 

00 


LDX 

#0 s 

LOOP COUNT AND INDEX 

1090 

E62B 

B5 

20 


C1RT3: LDA 

IQCBAS*X i 

ZERO PAGE 

1091 

E62D 

99 

40 

03 

STA 

IOCB;Y i 

TO USER AREA 

1092 

E630 

E8 



INX 



1093 

E631 

C8 



I NY 



1094 

E632 

EO 

OC 


CPX 

#12 i 

12 BYTES 

1095 

E634 

90 

F5 


0 CC 

CIRT3 


1096 





i 



1097 





i RESTORE Aj X# 

& Y 


1098 





i 



1099 

E636 

A5 

2F 


LDA 

CIOCHR ; 

GET LAST CHARACTER 

1100 

E638 

A6 

2 E 


LDX 

ICIDNO ) 

IOC0 INDEX 

1101 

E63A 

A4 

23 


LDY 

ICSTAZ J 

GET STATUS AND SET FLAGS 

1102 

E63C 

60 



RTS 

i 

RETURN TO USER 


f 


LINE 

ADDR 

B 1 

B2 

B3 B4 

CENTRAL INPUT/OUTPUT (CIO) 

2-7-79 PAGE 

1103 





. PAGE 


1 104 





i 



1105 








1106 





; CIO SUBROUTINES 


1 107 





i 



1108 





; COMENT — 

CHECK AND COMPUTE HANDLER ENTRY POINT 

1109 

E63D 

A4 

20 


COMENT: LDY 

ICHIDZ 

> GET HANDLER INDEX 

1110 

E63F 

CO 

22 


CPY 

#MAXDEV+1 

i IS IT A LEGAL TNDEX? 

1111 

E641 

90 

04 


BCC 

COM! 

; YES 

1113 





} 



1113 





i ILLEGAL HANDLER INDEX MEANS DEVICE NOT OPEN FOR OPERATION 

1114 

E643 

AO 

85 


LDY 

#NOTOPN 

5 ERROR CODE 

1115 

E645 

BO 

IB 


BCS 

COM2 

j RETURN 

1116 





h 



1117 





> USE HANDLER ADDRESS TABLE 

AND COMMAND TABLE TO GET VECTOR 

1118 

E647 

B9 

IB 

03 

CONI. LDA 

HATAB5+1)Y 

iGET LOW BYTE OF ADDRESS 

1119 

E64A 

85 

2C 


STA 

ICSPRZ 

>AND SAVE IN POINTER 

1 130 

E64C 

B9 

1C 

03 

LDA 

HATABS+2)Y 

iGET HI BYTE OF ADDRESS 

1 121 

E64F 

85 

2D 


STA 

ICSPRZ-** 1 


1 122 

E651 

A4 

17 


LDY 

ICCOMT 

;GET COMMAND CODE 

1123 

E653 

B9 

C6 

E6 

LDA 

C0MTAB-3i Y 

jGET COMMAND OFFSET 

1124 

E656 

A8 



TAY 



1125 

E657 

B 1 

2C 


LDA 

(ICSPRZ)) Y 

jGET LOW BYTE OF VECTOR FROM 

1126 

E659 

AA 



TAX 


jHANDLER ITSELF AND SAVE 

1127 

E65A 

C8 



I NY 



1128 

E65B 

B 1 

2C 


LDA 

(ICSPRZ), Y 

iGET HI BYTE OF VECTOR 

1129 

E65D 

85 

2D 


STA 

ICSPRZ+1 


1130 

E65F 

86 

2C 


STX 

ICSPRZ 

;SET LO BYTE 

1131 

E661 

18 



CLC 


;SHOW NO ERROR 

1132 

E662 

60 



COM2: RTS 



1133 








1134 





j 



1135 





s DECBFL — 

DECREMENT BUFFER LENGTH DOUBLE BYTE 

1136 





; Z FLAG = 0 ON RETURN IF LENGTH •= 0 AFTER DECREMENT 

1137 

E663 

C6 

28 


DECBFL: DEC 

ICBLLZ 

]DECREMENT LOW BYTE 

1 138 

E665 

A5 

28 


LDA 

ICBLLZ 

;CHECK IT 

1139 

E667 

C9 

FF 


CMP 

#*FF 

;DID IT GO BELOW? 

1140 

E669 

DO 

02 


BNE 

DECBF1 

j NO 

1141 

E66B 

C6 

P9 


DEC 

ICBLLZ+1 

; DECREMENT HI BYTE 

1 142 

E66D 

05 

29 


DECBF1: ORA 

ICBLLZ+1 

i SET Z IF BOTH ARE ZERO 

1143 

E66F 

60 



RTS 



1144 





i 



1 145 





t 



1 146 





i INCBFP -- 

INCREMENT WORKING BUFFER POINTER 

1147 

E670 

E6 

24 


INCBFP: INC 

ICBALZ 

i BUMP LOW BYTE 

1148 

E672 

DO 

02 


BNE 

INCBF1 

; GO IF NOT ZERO 

1 149 

E674 

E6 

25 


INC 

ICBALZ+1 

;ELSE, BUMP HI BYTE 

1150 

E676 

60 



INCBF1; RTS 



1151 





; 



1152 





; 



1153 





; SUBBFL — 

SET BUFFER LENGTH = BUFFER LENGTH - WORKING BYTE COUNT 

1154 

E677 

A6 

2E 


SUBBFL: LDX 

ICIDNO 

;GET IOCB INDEX 

1155 

E679 

38 



SEC 



1156 

E67A 

BD 

48 

03 

LDA 

ICBLL,X 

•,GET LOW BYTE OF INITIAL LENGTH 




LINE 

ADDR 

131 

B2 

B3 134 

CENTRAL INPUT/OUTPUT (CIO) 

2 - 7-79 PAGE 28 

1157 

E67D 

E5 

28 


SBC 


ICBLLZ 

J SUBTRACT FINAL LOW BYTE 

1158 

E67F 

85 

28 


STA 


ICBLL2 

J AND SAVE BACK 

1159 

E681 

BD 

49 

03 

L.DA 


I CBLHj X 

;GET HI BYTE 

11 AO 

E684 

E5 

29 


SBC 


ICBLLZ+1 


1161 

E 686 

85 

29 


STA 


ICBLHZ 


1162 

E 688 

60 



RTS 




1163 





i 




1164 





i 




1165 





i GOHAND — 

GO 

INDIRECT TO 

A DEVICE HANDLER 

1166 





; Y= STATUS 

ON 

RETURN, N FLAG=1 IF ERROR ON RETURN 

1167 

E689 

AO 

92 


GOHAND: LDY 


#FNCNQT 

iPREPARE NO FUNCTION STATUS FOR HANDLER RTS 

1168 

E 68 B 

20 

93 

E 6 

JSR 


ClJUMP 

)USE THE INDIRECT JUMP 

1169 

E 68 E 

84 

23 


STY 


ICSXA I 

iSAVE STATUS 

1170 

E690 

CO 

00 


CP Y 


#0 

;AND SET N FLAG 

1171 

E692 

60 



RTS 




1172 





; 




1 173 





, INDIRECT JUMP 

TO HANDLER 

BY PAUL'S METHOD 

1174 

E693 

AA 



ClJUMP. TAX 



i SAVE A 

1175 

E694 

A5 

2D 


LDA 


ICSPRZ+1 

,GET JUMP ADDRESS HI BYTE 

1176 

E696 

48 



PHA 



;PUT ON STACK 

1 177 

E697 

A5 

2C 


LDA 


ICSPRZ 

# GET JUMP ADDRESS L.O BYTE 

1178 

E699 

48 



PHA 



5 PUT ON STACK 

1179 

E69A 

8 A 



TX A 



iRESTORE A 

1180 

E69B 

A 6 

2 E 


LDX 


ICIDNO 

> GET XOCB INDEX 

1181 

E69D 

60 



RTS 



;GO TO HANDLER INDIRECTLY 


!_ 



ERR LINE 

ADDR 

B 1 

B2 

B3 B4 

CENTRAL 

. INPUT/OUTPUT (CIO) 

2-7-79 PAGE 

1182 






. PAGE 



1 183 









1184 





A DEVSRC 

: — DEVICE SEARCH, 

FIND DEVICE IN HANDLER ADDRESS TABLE 

1185 









1186 





i LOOP TO FIND 

DEVICE 


1 187 

E69E 

AO 

00 


DEVSRC: 

LDY 

#0 


1 188 

E6AG 

B 1 

24 



LDA 

<ICBALZ >.Y 

;GET DEVICE NAME FROM USER 

1 189 

E6A2 

FO 

OC 



BEG 

CIERR2 


1190 

E6A4 

AO 

21 



LDY 

#MAXDEV 

i INITIAL COMPARE INDEX 

1191 

E6A6 

D9 

1A 

03 

DEVS1: 

CMP 

HATABS.Y 

iIS THIS THE DEVICE? 

1192 

E6A9 

FO 

OA 



BEG 

DEVS2 

> YES 

1 193 

E6AB 

83 




DEY 



1194 

E6AC 

88 




DEY 


i ELSE. POINT TO NEXT DEVICE NAME 

1195 

E6AD 

88 




DEY 



1 196 

E6AE 

10 

F6 



BPL 

DEVS1 

iCONTINUE FOR ALL DEVICES 

1 197 





i 




1198 





i NO DEVICE FOUND, DECLARE 

NON-EXISTENT DEVICE ERROR 

1199 

E6B0 

AO 

CO 

PJ 


CIERR2: 

LDY 

SNONDEV 

,ERROR CODE 

1200 

E6B2 

38 




SEC 


iSHON ERROR 

1201 

E6B3 

BO 

13 



BCS 

DEVS4 

;AND RETURN 

1202 





f 




1203 





s FOUND 

DEVICE. 

SET ICHID,ICDNO. AND INIT DEVICE 

1204 

E6B5 

98 



DEVS2: 

TYA 



1205 

E6B6 

85 

20 



STA 

ICHIDZ 

;SAVE HANDLER INDEX 

1206 

E6B8 

38 




SEC 



1207 

E6B9 

AO 

01 



LDY 

#1 


1208 

E6BB 

B1 

24 



LDA 

(ICBALZ).Y 

'.GET DEVICE NUMBER (DRIVE NUMBER) 

1209 

E6BD 

E9 

30 



SBC 

#ASCZER 

-.SUBTRACT ASCII ZERO 

1210 

E6BF 

C9 

OA 



CMP 

#*A 

;IS NUMBER IN RANGE? 

1211 

E6C1 

90 

02 



BCC 

DEVS3 

; YES 

1212 

E6C3 

A9 

01 



LDA 

#1 

;NO. DEFAULT TO ONE 

1213 

E6C5 

85 

21 


DEVS3; 

STA 

ICDNOZ 

;SAVE DEVICE NUMBER 

1214 

E6C7 

18 




CLC 


iSHOU NO ERROR 

1215 









1216 





; RETURN 



1217 

E6C8 

60 



DEVS4: 

RTS 





ERR LINE 

ADDR 

B1 

B2 

B3 

B4 

CENTRAL INPUT/OUTPUT (CIO) 2-7-79 PAGI 

1218 






. PAGE 

1219 






; 

1220 






1 

1221 






; CIO ROM TABLES 

1222 






i 

1223 






i COMMAND TABLE 

1224 






J MAPS EACH COMMAND TO OFFSET FOR APPROPRIATE VECTOR IN HANDLER 

1225 

E6C9 

00 

04 

04 

04 

COMTAB: . BYTE 0, 4 , 4; 4, 4 , h, 6, 6 , 6 / 2, 8, 10 

1226 

E6CD 

04 

06 

06 

06 


1227 

E6D1 

06 

02 

08 

0A 


1228 

022 F 





LENGTH=*-CIOINT 

1229 

E6D5 





CRNTP1 =* 

1230 






*=$14 

1231 

0014 

00 




CIOSPR: .BYTE INTORG-CRNTP1 j^GCIOL IS TOO LONG 


30 



ERR LINE ADDR B1 B2 B3 B4 


CENTRAL INPUT/OUTPUT <CIO> 2-7-79 


PAGE 


31 


1232 

1233 

1234 

1235 

1236 

1237 

1238 

0006 

E45C 

4C 

12 

E9 

1239 

E45F 

4C 

D1 

E7 

1240 

E462 

4C 

3E 

E9 

1241 

1242 

E46B 

4C 

D5 

E 6 

1243 

1244 

1245 

1246 

E480 

B3 

E7 


1247 

E482 

B2 

E7 


1248 

E484 

B2 

E7 


1249 

E486 

B2 

E7 


1250 

1251 

1252 

E488 

E490 

B2 

E7 


1253 

E492 

B2 

E7 


1254 

E494 

B2 

E7 


1255 

E496 

F 6 

E 6 


1256 

E498 

00 

00 

00 

1257 

E49C 

00 

00 

00 

1258 

E4A0 

00 

00 


1259 

E4A2 

D1 

E7 


1260 

E4A4 

3E 

E9 


1261 

1262 

1263 

1264 

900C 

A9 

E 6 


1265 

900E 

8 D 

F9 

FF 

1266 

9011 

A9 

F3 


1267 

9013 

SD 

FS 

FF 

1268 

9016 

A9 

E7 


1269 

9018 

8 D 

FB 

FF 

1270 

90 IB 

A9 

B4 


1271 

90 ID 

SD 

FA 

FF 

1272 

9020 

60 




LIST S 

. TITLE * INTERRUPT 

;LIVES ON DK1; INTHV. SRC 
SRTIM2 = 6 

*~SETVBV 
JMP SETVBL 

JMP SYSVBL 

JMP XITVBL 

#“INTINV 
JMP IHINIT 

*=VCTABL+INTABS-VD8L.5T 


WORD 

SYRTI 

iVDSLST 

WORD 

SYIRQB 

iVPRCED 

WORD 

SYIRQB 

;VINTER 

WORD 

BYIROB 

;VBREAK 

RES 

8 


WORD 

SYIRQB 

iVTIMR1 

WORD 

SYIRQB 

s VTIMR2 

WORD 

SYIRQB 

JVTIMR4 

WORD 

SYIRQ 

iVIMIRG 

WORD 

O 

6 

6 

6 

6 

JCDTMV1-4 


WORD 

SYSVBL 

iVVBLKI 

WORD 

XITVBL 

;VVBLKD 


#=$9000 

LDA #PIRQH ; SET UP RAM VECTORS FOR LINBUG VERSION 

STA $FFF9 

LDA #PIRQL 

STA $FFF 8 

LDA #PNMIH 

STA $FFFB 

LDA fcPNMIL 

STA $FFFA 

RTS 


HANDLER' 

3 SECOND REPEAT INTERVAL 



ERR LINE 

ADDR 

B 1 

32 

B3 B4 

INTERRUPT HANDLER 

PAGE 

1273 






. PAGE 



1274 





5 




1275 





i IRQ HANDLER 



1276 





J 




1277 





; JUMP 

THRU IMMEDIATE IRQ 

VECTOR; WHICH ORDINARILY POINTS TO 

1278 





; SYSTEM IRQ: 

DETERMINE & 

CLEAR CAUSE; JUMP THRU SOFTWARE VECTOR. 

1279 









1280 






*=INTORG 


1281 

E6D5 

A9 

40 


IHINIT: 

LDA 

#$40 

> VEL ON BUF DL.IST OFF***FOR NOW**# 

1282 

E6D7 

80 

OE 

D4 


STA 

NMIEN 

:ENABLE DISPLAY LIST; VERTICAL BLANK 

1283 

E6DA 

A9 

38 



LDA 

#$38 

iLOOK AT DATA DIRECTION REGISTERS IN 

1284 

E6DC 

8 D 

02 

D3 


STA 

PACTL 


1285 

E6DF 

8 D 

03 

D3 


STA 

PBCTL 


1286 

E6E2 

A9 

00 



LDA 

#0 

;MAKE ALL INPUTS 

1287 

E6E4 

8 D 

00 

D3 


STA 

PORTA 


1288 

E6E7 

8 D 

01 

D3 


STA 

PORTB 


1289 

E6EA 

A9 

3C 



LDA 

#$3C 

iBACK TO PORTS 

1290 

E6EC 

8 D 

02 

D3 


STA 

PACTL 


1291 

E6EF 

8 D 

03 

D3 


STA 

PBCTL 


1292 

E6F2 

60 




RTS 



1293 

E6F3 

6 C 

16 

02 

PIRQ: 

JMP 

CVIMIRQ) 


1294 

E6F6 

4e 



SYIRQ: 

PHA 


iSAVE A ON STACK 

1295 

E6F7 

A9 

10 



LDA 

#$10 

\ SERIAL OUT READ BIT 

1296 

E6F9 

2C 

OE 

D2 


BIT 

IRQST 

;SEE IF 9ER OUT RDY 

1297 

E6FC 

DO 

OD 



BNE 

SYIRQ1 

;JUMP IF NOT 

1293 

E6FE 

A9 

EF 



LDA 

#$EF 


1299 

E700 

8 D 

OE 

D2 


STA 

IRGEN 


1300 

E703 

A5 

10 



LDA 

POKMSK 

j RESET ENABLE BYTE 

1301 

E705 

80 

OE 

D2 


STA 

IRQEN 


1302 

E70S 

6 C 

OC 

02 


JMP 

<V5ER0R) 

#JUMP THRU VECTOR 

1303 

E70B 

A9 

20 


SYIRQ1. 

LDA 

#$20 

>SERIAL IN READY BIT 

1304 

E70D 

2C 

OE 

D2 


BIT 

IRQST 


1305 

E710 

DO 

OD 



BNE 

SYIRQ2 


1306 

E712 

A9 

DF 



LDA 

#$DF 


1307 

E714 

80 

OE 

D2 


STA 

IRQEN 


1308 

E717 

A5 

10 



LDA 

POKMSK 


1309 

E719 

8 D 

OE 

D2 


STA 

IRQEN 


1310 

E71C 

6 C 

OA 

02 


JMP 

(VSERIN) 


1311 

E71F 

A9 

08 


SYIRQ2: 

LDA 

#$08 

JSERIAL OUT COMPLETE 

1312 

E721 

24 

10 



BIT 

POKMSK 

;ONLY CHECK IF ENABLED 

1313 

E723 

FO 

12 



BEQ 

SYIRQ3 

;SINCE THIS IS A WEIRD CASE IN THE 

1314 

E725 

20 

OE 

D2 


BIT 

IRQEN 

;HARDWARE 

1315 

E 728 

DO 

OD 



BNE 

SYIRQ3 


1316 

E72A 

A9 

F7 



LDA 

#$F7 


1317 

E72C 

80 

OE 

D2 


STA 

IRQEN 


1318 

E72F 

A5 

10 



LDA 

POKMSK 


1319 

E731 

8 D 

OE 

D2 


STA 

IRQEN 


1320 

E734 

6 C 

OE 

02 


JMP 

(VSEROC) 


1321 

E737 

AD 

OE 

D2 

SYIRQ3: 

LDA 

IRQEN 

* TO CHECK TIMERS 

1322 

E73A 

6 A 




ROR 

A 


1323 

E73B 

BO 

OD 



BCS 

SYIRQ4 

;TIMER 1 

1324 

E73D 

A9 

FE 



LDA 

#$FE 


1325 

E73F 

8 D 

OE 

D2 


STA 

IRQEN 


1326 

E742 

A5 

10 



LDA 

POKMSK 




ERR LINE ADDR B1 B2 B3 B4 


INTERRUPT HANDLER 


1327 

E744 

SD 

OE 

D2 


STA 

IRQEN 

1328 

E747 

6 C 

10 

02 


JMP 

< VTIMR1) 

1329 

E74A 

6 A 



SYIRQ4: 

ROR 

A 

1330 

E74B 

BO 

OD 



BCS 

SYIRQ5 

1331 

E74D 

A9 

FD 



LDA 

#$FD 

1332 

E74F 

8 D 

OE 

D2 


STA 

IRQEN 

1333 

E752 

A5 

10 



LDA 

POKMSK 

1334 

E754 

8 D 

OE 

D2 


STA 

IRQEN 

1335 

E757 

6 C 

12 

02 


JMP 

<VTIMR2) 

1336 

E75A 

6 A 



SYIRG5: 

ROR 

A 

1337 

E75B 

BO 

OA 



BCS 

SYIRQ6 

1338 

E75D 

A9 

FB 



LDA 

#$FB 

1339 

E75F 

BD 

OE 

D2 


STA 

IRQEN 

1340 

E762 

A5 

10 



LDA 

POKMSK 

1341 

E764 

8 D 

OE 

D2 


STA 

IRQEN 

1342 





> 

JMP 

(VTIMR4: 

1343 

E767 

2C 

OE 

D2 

BYIRQ6: 

BIT 

IRQEN 

1344 

E76A 

70 

OD 



BVS 

SYIRQ7 

1345 

E76C 

A9 

OF 



LDA 

#$BF 

1346 

E76E 

8 D 

OE 

D2 


STA 

IRQEN 

1347 

E771 

A5 

10 



LDA 

POKMSK 

1348 

E773 

8 D 

OE 

D2 


STA 

IRQEN 

1349 

E776 

6 C 

08 

02 


JMP 

(vkeybd: 

1350 

E779 

30 

18 


SYIRQ7: 

BMI 

SYIRQ8 

1351 

E77B 

A9 

7F 



LDA 

#$7F 

1352 

E77D 

8 D 

OE 

D2 


STA 

IRQEN 

1353 

E780 

A5 

10 



LDA 

POKMSK 

1354 

E782 

8 D 

OE 

D2 


STA 

IRQEN 

1355 

E785 

A9 

00 



LDA 

#0 

1356 

E787 

85 

U 



STA 

BRKKEY 

1357 

E789 

8 D 

FF 

02 


STA 

SSFLAG 

1358 

E78C 

8 D 

FO 

02 


STA 

CRSINH 

1359 

E78F 

85 

4D 



STA 

ATRACT 

1360 

E791 

68 




PLA 


1361 

E792 

40 




RTI 


1362 

E793 

2C 

02 

D3 

SYIRQ8: 

BIT 

PACTL 

1363 

E796 

10 

06 



BPL 

SYIRQ9 

1364 

E798 

AD 

00 

D3 


LDA 

PORTA 

1365 

E79B 

6 C 

02 

02 


JMP 

(VPRCED 

1366 

E79E 

2C 

03 

D3 

SYIRG9: 

BIT 

PBCTL 

1367 

E7A1 

10 

06 



BPL 

SYIRQA 

1368 

E7A3 

AD 

01 

D3 


LDA 

PORTB 

1369 

E7A6 

6 C 

04 

02 


JMP 

(VINTER 

1370 

E7A9 

08 



SYIRQA; 

PHP 


1371 

E7AA 

68 




PLA 


i372 

E7AB 

29 

10 



AND 

#$10 

1373 

E7AD 

FO 

03 



BEQ 

SYIRQB 

1374 

E7AF 

6 C 

06 

02 


JMP 

< VBREAK 

1375 

E7B2 

68 



SYIRQB-. 

PLA 


1376 

E7B3 

40 



SYRTI: 

RTI 



PAGE 


33 


CHECK BREAK KEY, KEYBOARD INTERRUPTS 
IF KEYBOARD 


BREAK KEY 


SET BREAK KEY FLAG 
START/STOP FLAG 
CURSOR INHIBIT 
TURN OFF ATRACT MODE 

EXIT FROM INT 
PROCEED ***I GUESS*** 

CLEAR INI STATUS BIT 

INTERRUPT ***I GUESS*** 

CLEAR INT STATUS 


SEE IF SOFTWARE BREAK 
B BIT OF P REGISTER 


UNIDENTIFIED INTERRUPT, JUST RETURN. 


ERR LINE ADDR B1 B2 B3 B4 


INTERRUPT HANDLER 


PAGE 34 


1377 . PAGE 

1378 ; 

1379 ? NMI HANDLER 

1380 ; 

1381 ; DETERMINE CAUSE AND JUMP THRU VECTOR 

1382 


1383 

E7B4 

2C 

OF 

D4 

PNMI: 

BIT 

NMIST 


1384 

E7B7 

10 

03 



BPL 

PNMI 1 

/SEE IF DISPLAY LIST 

1385 

E7B9 

6 C 

00 

02 


JMP 

(VDSLST) 


1386 

E7BC 

48 



PNMI1: 

PHA 



1387 

E7BD 

AD 

OF 

D4 


LDA 

NMIST 


1389 

E7C0 

29 

20 



AND 

tt*20 

J SEE IF RESET 

1389 

E7C2 

FO 

03 



BEQ 

#■+5 


1390 

E7C4 

4C 

74 

E4 


JMP 

WARMSV 

;GO THRU WARM START JUMP 

1391 

E7C7 

8 A 




TXA 


>SAVE REGISTERS 

1392 

E7C8 

48 




PHA 



1393 

E7C9 

98 




TYA 



1394 

E7CA 

48 




PHA 



1395 

E7CB 

8 D 

OF 

D4 


ST A 

NMIRES 

iRESET INTERRUPT STATUS 

1396 

E7CE 

6 C 

22 

02 


JMP 

(VVBLKI) 

}JUMP THRU VECTOR 



ERR LINE ADDR B1 E2 B3 B4 


INTERRUPT HANDLER 
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LINE 

ADDR 

B1 

B2 

B3 B4 

INTERRUPT 

HANDLER 


1451 

E83F 

10 

F3 



BPL 


SCOLLP 


1452 

E841 

AD 

F4 

02 


LDA 


CHBAS 


1453 

E844 

8 D 

09 

D4 


STA 


CHBASE 


1454 

E847 

AD 

F3 

02 


LDA 


CH ACT 


1455 

E84A 

8 D 

01 

D4 


STA 


CHACTL 


1456 

E84D 

A2 

02 



LDX 


#2 

iPOINT TO TIMER 2 

1457 

E84F 

20 

F5 

E8 


JSR 


DCTIMR 


1458 

E852 

DO 

03 



BNE 


SYSVB4 

i IF DIDNT GO ZERO 

1459 

E854 

20 

F2 

E8 


JSR 


JTIMR2 

•GO JUMP TO TIMER2 ROUTINE 

1460 

E857 

A2 

02 


8YSVB4; 

LDX 


#2 

;RESTORE X 

1461 

E859 

E8 



SYSVBB: 

INX 




1462 

E85A 

E8 




INX 




1463 

E85B 

BD 

18 

02 


LDA 


CDTMV1,X 


1464 

E85E 

ID 

19 

02 


ORA 


CDTMV1+1,X 


1465 

E861 

FO 

06 



BEQ 


SYSVBA 


1466 

E863 

20 

F5 

E8 


JSR 


DCTIMR 

iDECREMENT AND SET FLAG IF 

1467 

E866 

9D 

26 

02 


STA 


CDTMF3-4;X 


1468 

E869 

EO 

08 


SYSVBA: 

CPX 


#8 

;SEE IF DONE ALL 3 

1469 

ES6B 

DO 

EC 



BNE 


SYSVBB 

; LOOP 

1470 





;CHECK 

DEBOUNCE 

COUNTER 


1471 

E86D 

AD 

OF 

D2 


LDA 


SKSTAT 


1472 

E870 

29 

04 



AND 


#$04 

;KEY DOWN BIT 

1473 

E872 

FO 

08 



BEQ 


SYVB6A 

?IF KEY DOWN 

1474 





;KEY UP 

SO COUNT IT 


1475 

E874 

AD 

FI 

02 


LDA 


KEYDEL 

,KEY DELAY COUNTER 

1476 

E877 

FO 

03 



BEQ 


SYVB6A 

^ IF COUNTED DOWN ALREADY 

1477 

E879 

CE 

FI 

02 


DEC 


KEYDEL 

;COUNT IT 

1478 





, CHECK 

SOFTWARE REPEAT TIMER 

1479 

E87C 

AD 

2B 

02 

SYVB6A: 

LDA 


SRTIMR 


1480 

E87F 

FO 

17 



BEQ 


SYSVB7 

> DOESN'T COUNT 

i 481 

E881 

AD 

OF 

D2 


LDA 


SKSTAT 


1482 

E884 

29 

04 



AND 


#$04 

; CHECK KEY DOWN BIT 

1483 

E886 

DO 

60 



BNE 


SYSVB6 

;BRANCH IF NO LONGER DOWN 

14S4 

£888 

CE 

2B 

02 


DEC 


SRTIMR 

;COUNT FRAME OF KEY DOWN 

1485 

E88B 

DO 

OB 



BNE 


SYSVB7 

;BRANCH IF NOT RUN OUT 

1486 





J TIMER 

RAN 

OUT 

- RESET AND 

SIMULATE KEYBOARD IRQ 

1487 

E88D 

A9 

06 



LDA 


#SRTIM2 

iTIMER VALUE 

1488 

E88F 

8 D 

2B 

02 


STA 


SRTIMR 

;SET TIMER 

1489 

E392 

AD 

09 

D2 


LDA 


KBCODE 

iGET THE KEY 

1490 

E895 

8 D 

FC 

02 


STA 


CH 

) PUT INTO CH 

1491 





; READ ■ 

GAME 

CONTROLLERS 


1492 

E898 

AO 

01 


SYSVB7: 

LDY 


#1 


1493 

E89A 

A2 

03 



LDX 


#3 


1494 

E89C 

B9 

00 

D3 

STLOOP: 

LDA 


PORTA, Y 


1495 

E89F 

4A 




LSR 


A 


1496 

E8A0 

4A 




LSR 


A 


1497 

E8A1 

4 A 




LSR 


A 


1498 

E8A2 

4A 




LSR 


A 


1499 

E8A3 

9D 

78 

02 


STA 


ST I CKO* X 

,STORE JOYSTICK 

1500 

E8A6 

CA 




DEX 




1501 

E8A7 

B9 

00 

D3 


LDA 


PORTA, Y 


1502 

ESAA 

29 

OF 



AND 


#$F 


1503 

E8AC 

9D 

78 

02 


STA 


STICKO,X 

;STORE JOYSTICK 

1504 

E8AF 

CA 




DEX 





PAGE 


IF NONZERO 


36 


ERR LINE ADDR B1 B2 B3 B4 


INTERRUPT HANDLER 
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1505 

E8B0 

88 




DEY 


1506 

EBB 1 

10 

E9 



BPL 

STLOOP 

1507 





; 



1508 

E8B3 

A2 

03 



LDX 

#3 

1509 

EBB 5 

BD 

10 

DO 

STRL: 

LDA 

TRIGO, X iMOVE JOYSTICK TRIGGERS 

1510 

E8B8 

9D 

84 

02 


STA 

STRIGO,X 

1511 

E8BB 

BD 

00 

D2 


LDA 

POTO, X »MOVE POT VALUES 

1512 

E8BE 

9D 

70 

02 


STA 

PADDLO. X 

1513 

ESC 1 

BD 

04 

D2 


LDA 

P0T4, X 

1514 

E8C4 

9D 

74 

02 


STA 

PADDL4,X 

1515 

E8C7 

CA 




DEX 


1516 

EBC8 

10 

EB 



BPL 

STRL 

1517 

E8CA 

BD 

OB 

D2 


STA 

POTGO iSTART POTS FOR NEXT TIME 

1518 





i 



1519 

E8CD 

A2 

06 



LDX 

#6 

1520 

E8CF 

AO 

03 



LDY 

#3 

1521 

ESDI 

B9 

78 

02 

PTRLP: 

LDA 

STICKO.Y t TRANSFER BITS FROM JOYSTH 

1522 

E8D4 

4A 




LSR 

A fTO PADDLE TRIGGERS 

1523 

E8D5 

4A 




LSR 

A 

1524 

E8D6 

4A 




LSR 

A 

1525 

E8D7 

9D 

7D 

02 


STA 

PTRIG1.X 

1526 

E8DA 

A9 

00 



LDA 

#0 

1527 

ESDC 

2A 




ROL 

A 

1528 

E8DD 

9D 

7C 

02 


STA 

PTRIGO, X 

1529 

E8E0 

CA 




DEX 


1530 

ESE1 

CA 




DEX 


1531 

E8E2 

88 




DEY 


1532 

E8E3 

10 

EC- 



BPL 

PTRLP 

1533 





[ 



1534 

E8E5 

6 C 

24 

02 


JMP 

(VVBLKD) JGO TO DEFERRED VBLANK ROU' 

1535 

00E8 




SV7H 


SYSVB7/256 

1536 

0098 




SV7L 

me 

(“256)*SV7H+SYSVB7 

1537 

E8E8 

A 9 

00 


SYSVB6: 

LDA 

#0 

1538 

E8EA 

8 D 

2B 

02 


STA 

SRTIMR i ZERO TIMER 

1539 

E8ED 

FO 

A9 



BEG 

SYSVB7 ;UNCOND 

1540 

E8EF 

6 C 

26 

02 

JTIMR1: 

JMP 

< CDTMA1) 

1541 

E8F2 

6 C 

28 

02 

JTIMR2: 

JMP 

(CDTMA2) 

1542 








1543 





i SUBROUTINE TO 

DECREMENT A COUNTDOWN TIMER 

1544 





j ENTRY 

X=OFFSET FROM TIMER 1 

1545 





! EXIT 

A, P=ZERO 

IF WENT ZERO, FF OTHERWISE 

1546 





J 



1547 

E8F5 

BC 

18 

02 

DCTIMR. 

LDY 

CDTMV1, X JLO BYTE 

1548 

E8F8 

DO 

08 



BNE 

DCTIMi ;NONZERO. GO DEC IT 

1549 

E8FA 

BC 

19 

02 


LDY 

CDTMV1+1,X JSEE IF BOTH ZERO 

1550 

E8FD 

FO 

10 



BEG 

DCTXF i YES, EXIT NONZERO 

1551 

E8FF 

DE 

19 

02 


DEC 

CDTMVi + l.X i DEC HI BYTE 

1552 

E902 

DE 

18 

02 

DCTIM1; 

DEC 

CDTMV1.X iDEC LO BYTE 

1553 

E905 

DO 

08 



BNE 

DCTXF 

1554 

E907 

BC 

19 

02 


LDY 

CDTMV1 + 1. X 

1555 

E90A 

DO 

03 



BNE 

DCTXF 

1556 

E90C 

A9 

00 



LDA 

#0 sWENT ZERO, RETURN ZERO 

1557 

E90E 

60 




RTS 


1558 

E90F 

A9 

FF 


DCTXF: 

LDA 

#*FF jRETURN NONZERO 


ERR LINE 

,ADDR 

S1 32 B3 B4 

INTERRUPT HANDLER 

PAGE 

38 

1559 

E911 

60 

RTS 




ERR LINE 

ADDR 

B1 

B2 

B3 B4 

INTERRUPT i 

HANDLER 


PAGE 

1560 






PAGE 



1561 





; 





1562 





i SUBROUTINE 

TO SET VERTICAL 

BLANK VECTORS AND TIMERS 


1563 





j ENTRY 

X=HI 

, Y=LO BYTE TO SET 


1564 





f 

A- 1 

-5 TIMERS 1-5 



1565 





J 

6 

IMM VBLANK 



1566 





! 

7 

DEF VBLANK 



1567 





i 





1568 

E912 

0A 



SETVBL: 

ASL 

A 

i MUL BY 2 


1569 

E913 

8 D 

2D 

02 


STA 

INTEMP 



1570 

E916 

A9 

00 



LDA 

#$00 

; DL1ST OFF BUT VBLANK OFF***FOR 

NOW*** 

1571 

E918 

8 D 

OE 

D4 


STA 

NMIEN 



1572 

E91B 

8 A 




TXA 




1573 

E91C 

AE 

2D 

02 


LDX 

INTEMP 



1574 

E91F 

9D 

17 

02 


STA 

CDTMV1-1 > X 



1575 

E922 

98 




TYA 




1576 

E923 

9D 

16 

02 


STA 

CDTMV1-2, X 



1577 

E926 

A9 

40 



LDA 

#$40 

jDLIST QFF***FDR NOW***, VBLANK 

ON 

1578 

E928 

SD 

OE 

D4 


STA 

NMIEN 



1579 

E92B 

2C 

OF 

D4 


BIT 

NMI ST 

;SEE IF A VBLANK HAPPENED 


1580 

E92E 

50 

OD 



BVC 

SETVB1 

i IF NOT, GO EXIT 


1581 





; SIMULATE VERTICAL BLANK NMI 


1582 

E930 

A9 

E9 



LDA 

#SV1H 



1533 

E932 

48 




PHA 


; PUSH PC ON STACK AS IF INTERRUPT 

1584 

E933 

A9 

3D 



LDA 

#SV1L 



1585 

E935 

48 




PHA 




1586 

E936 

08 




PHP 


,DUMMY P 


1587 

E937 

48 




PHA 


sDUMMY A 


1588 

E938 

48 




PHA 


iDUMMY X 


1589 

E939 

48 




PHA 


1 DUMMY Y 


1590 

E93A 

6 C 

22 

02 


JMP 

(VVBLKI) 

iGO THRU VBLANK VECTOR 


1591 

E93D 

60 



SETVB1: 

RTS 




1592 

00E9 




SVIH 

= 

SETVB1/256 



1593 

003D 




SV1.L 

~ 

(-256 >*SV1H+SETVB1 


1594 





! 





1595 





; EXIT 

FROM 

VERTICAL BLANK 



1596 





l 





1597 

E93E 

68 



XITVBL: 

PLA 


;UNSTACK Y 


1598 

E93F 

A8 




TAY 




1599 

E940 

68 




PLA 


;UNSTACK X 


1600 

E941 

AA 




TAX 




1601 

E942 

68 




PLA 


;UNSTACK A 


1602 

E943 

40 




RTI 


;AND GO BACK FROM WHENCE. 


1603 

00E6 




PIRGH 

= 

PIRQ/256 



1604 

00F3 




PIRGL 

* 

( -256 >*PIRQH+PIRQ 


1605 

00E7 




PNMXH 

= 

P NM1/256 



1606 

00B4 




PNMIL 

=s 

(--256) *PNMIH+PNMI 


1607 





;SPARE 

BYTE 

OR MODULE TOO LONG FLAG 


1608 

E944 




CRNTP2 

=* 




1609 






#=$14 



1610 

0014 

00 



INTSPR: 

.BYTE SI00RG-CRNTP2 i^GINTHV IS TOO LONG 



39 


ERR LINE ADDR B1 B2 B3 B4 
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40 


1611 

1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 
1621 
1622 

1623 

1624 

1625 

1626 

1627 

1628 
1629 


.TITLE 'SIO ( SERIAL BUS INPUT/OUTPUT CONTROLLER )' 
COLLEEN OPERATING SYSTEM 

SIO ( SERIAL BUS INPUT/OUTPUT CONTROLLER > 

WITH SOFTWARE BAUD RATE CORRECTION ON CASSETTE 


AL MILLER 3-APR-79 


r THIS MODULE HAS ONE ENTRY POINT. IT IS CALLED BY THE DEVICE 
iHANDLERS. IT INTERPRETS A PREVIOUSLY ESTABLISHED DEVICE CONTROL 
:BLOCK (STORED IN GLOBAL RAM) TO ISSUE COMMANDS 
> TO THE SERIAL BUS TO CONTROL TRANSMITTING AND RECEIVING DATA. 



SIO ( SERIAL BUS INPUT/OUTPUT CONTROLLER ) 
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err line 

ADDR 

1630 


1631 


1632 


1633 


1634 

0030 

1635 


1636 


1637 

0060 

1638 


1639 


1640 


1641 


1642 

0052 

1643 

0057 

1644 


1645 


1646 


1647 


1648 


1649 


1650 

0053 

1651 

004E 

1652 

0044 

1653 

0050 

1654 


1655 


1656 


1657 


1658 

0041 

1659 

004E 

1660 

0043 

1661 

0045 

1662 


1 663 


1664 


1665 


‘ 1666 

0028 

1667 

0000 

1668 

OOCC 

1669 

0005 

1670 

0005 

1671 

0007 

1672 


1673 

00B4 

1674 

0000 

1675 

0078 

1676 

0000 

1677 

OOOF 

1678 

OOOA 

1679 


1680 

0034 

1681 

003C 

1682 

0034 

1683 

003C 


B1 02 B3 B4 


. PAGE 

,EQUATES 


J 

; DCD DEVICE BUS ID NUMBERS 


FLOPPY =•• $30 

iPRINTR = $40 

i CASSET = $60 

CASET = $60 


f * * ! * 

» ! ! ! ! ##■»■■»-# 


}BUS COMMANDS 


READ = 'R 

WRITE = 'W 

iSTATIS = 'S 

;FORMAT = ' 1 


iCOMMAND AUX BYTES 

i 

SIDWAY = '5 

NORMAL = 'N 

DOUBLE = 'D 

PLOT = 'P 


; PRINT 16 CHARACTERS SIDEWAYS 
,PRINT 40 CHARACTERS NORMALLY 
;PRINT 20 CHARACTERS DOUBLE WIDE 
iPLOT MODE 


; BUS RESPONSES 


J 

ACK =* 'A 

NACK => 'N 

CDiiPLT “ 'C 

ERROR - 'E 


iDEVICE ACKNOWLEDGES INFORMATION 
v DEVICE DID NOT UNDERSTAND 
iDEVICE SUCCESSFULLY COMPLETED OPERATION 
jDEVICE INCURRED AN ERROR IN AN ATTEMPTED 


jMISCELLANEOUS 

EQUATES 

/ 

B192L0 


$28 

B192HI 

= 

$00 

B600LQ 


$CC 

B600HI 

- 

$05 

HITONE 

= 

$05 

LOTONE 

= 

$07 

WIRGLO 

=5 

180 

WXRGHI 

=: 

0 

RIRGLO 

- 

120 

RIRGHI 

= 

0 

WSIRG 

S* 

15 

RSIRG 

m 

10 

i 

NCOMLO 

= 

$34 

NCOMHI 

~ 

$3C 

MQTRGO 

= 

$34 

MOTRST 

= 

$3C 


;19200 BAUD RATE POKEY COUNTER VALUES (LO BY 
;(HI BYTE) 
j 600 BAUD (LG BYTE) 

? (HI BYTE) 

i FSK HI FREQ POKEY COUNTE VALUE (5326 HZ) 

/ FSK LQ FREQ POKEY COUNTER VALUE (3995 HZ) 

jWRITE INTER RECORD GAP (IN 1/60 SEC) 

;READ INTER RECORD GAP (IN 1/60 SEC) 

iSHORT WRITE INTER RECORD GAP 
* SHORT READ INTER RECORD GAP 

iPIA COMMAND TO LOWER NOT COMMAND LINE 
iPIA COMMAND TO RAISE NOT COMMAND LINE 
;PIA COMMAND TO TURN ON CASSETTE MOTOR 
iPIA COMMAND TO TURN OFF MOTOR 







SIO ( SERIAL BUS INPUT/OUTPUT CONTROLLER ) 
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ERR LINE ADDR B1 B2 B3 B4 


1684 


1685 

0002 

1636 

003E 

1637 

0002 

1683 

003A 

1689 


1690 

GOOD 

1691 

0001 

1692 

0002 

1693 

0000 

1694 


1695 


1696 


1697 


1693 


1699 



TEMPHI 

TEMPLO 

CBUFHI 

CBUFLO 

CRETRI 

DRETRI 

CTIMLO 

CTIMHI 


iJTADRH 

j 

i JTADRL 


TEMP/256 ;ADDRESS GF TEMP CELL (HI BYTE) 
(~256)*TEMPHI+TEMP ; < LO BYTE) 

CDEVIC/256 iADDRESS OF COMMAND BUFFER (HI BYTE) 
<-256)*CBUFHH-CDEVIC , (LO BYTE) 

13 ; NUMBER OF COMMAND FRAME RETRIES 

1 i NUMBER OF DEVICE RETRIES 

2 ;COMMAND FRAME ACK TIME OUT (LO BYTE) 

0 >COMMAND FRAME ACK TIME OUT (HI BYTE) 


JTIMER/256 HI BYTE OF JUMP TIMER ROUTINE ADDR 
MOVED TO LINE 1427 

<-256)*JTADRH+JTIMER “MOVED TO LINE 1423“ 


ERR LINE APDR B1 02 03 B4 


SIO ( SERIAL BUS INPUT/OUTPUT CONTROLLER ) 
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1700 


1701 


1702 


1703 


1704 


1705 

E459 

1706 


1707 


1708 

E465 

1709 


1710 


1711 

E468 

1712 


1713 


1714 


1715 

E48A 

1716 

E48C 

1717 

E48E 

1718 


1719 


1720 


1721 


1722 


1723 


1724 


1725 

E944 

1726 

E946 

1727 


1728 

E949 

1729 

E94B 

1730 


.1731 


1732 

E94E 

1733 

E950 

1734 

E953 

1735 

E955 

1736 


1737 


1738 

E958 

1739 


1740 


1741 


1742 


1743 


1744 


1745 

E959 

1746 

E95A 

1747 

E95D 

1748 

E95F 

1749 


1750 

E961 

1751 

E964 

1752 

E966 

1753 

E968 


4C 59 E9 


4C 44 E9 


4C F6 EB 


11 EB 
90 EA 
D1 EA 


A9 3C 
SD 02 D3 

A9 3C 
8 D 03 D3 


A9 03 
8 D 32 02 
85 41 
8 D OF D2 


60 


BA 

8 E 10 03 
A9 01 
85 42 

AD 00 03 
C9 60 
DO 03 
4C 84 EB 


. PAGE 
SIO 


#^SIOV 

■JMP SIO >SIO ENTRY POINT 


■fc—SIOINV 

JMP SIOINT , SIO INITIALIZATION ENTRY POINT 


#~SENDEV 

JMP SENDEN 1SEND ENABLE ENTRY POINT 

*=VCTABL-INTABS+V5ERIN 

. WORD ISRSIR JVSERIN 

.WORD ISRODN jVSEROR 

.WORD ISRTD iVSEROC 


#=5I00RG 

iSIO INITIALIZATION SUBROUTINE 

SIOINT: LDA #MOTRST 

STA PACTL iTURN OFF MOTOR 


LDA #NCOMHI 

STA PBCTL iRAISE NOT COMMAND LINE 


LDA #3 

STA SSKCTL ; GET POKEY OUT OF INITIALIZE MODE 

STA SOUNDR sINIT POKE ADDRESS FOR QUIET I/O 

STA 5KCTL 


RTS >RETURN 


TSX 




STX 

STACKP 

iSAVE STACK 

POINTER 

LDA 

#1 



STA 

CRITIC 



LDA 

DDEVIC 



CMP 

#CASET 



BNE 

NOTCST 

iBRANCH IF 

NOT CASSETTE 

JMP 

CASENT 

iOTHERWISE 

JUMP TO CASSETTE 


ERR LINE ADDR B1 B2 B3 B4 


SIO ( SERIAL BUS INPUT/OUTPUT CONTROLLER ) 


PAGE 


44 


1754 





, 





1755 





> ALL DEVICES 

EXCEPT CASSETTE 

ARE INTELLIGENT 


1756 





, 





1757 

E96B 

A9 

GO 


NOTCST: 

LDA 

#0 



1758 

E96D 

8 D 

OF 

03 


STA 

CASFLG i 

INIT CASSETTE FLAG TO NO CASSETTE 


1759 





i 





1760 

E970 

A9 

01 



LDA 

#DRETRI ; 

SET NUMBER OF DEVICE RETRIES 


1761 

E972 

85 

37 



STA 

DRETRY 



1762 

E974 

A9 

OD 


COMMND: 

LDA 

#CRETRI i 

SET NUMBER OF COMMAND FRAME RETRIES 


1763 

E976 

85 

36 



STA 

CRETRY 



1764 










1765 





iSEND A 

COMMAND FRAME 



17 66 










1767 

E978 

A9 

28 


COMFRM: 

LDA 

#E192L0 

; SET BAUD RATE TO 19200 


1768 

E97A 

SD 

04 

D2 


STA 

AUDF3 



1769 

E97D 

A9 

00 



LDA 

#B192HI 



1770 

E97F 

8 D 

06 

D2 


STA 

AUDF4 



1771 





i 





1772 

E982 

18 




CLC 


; SET UP COMMAND BUFFER 


1773 

E9S3 

AD 

00 

03 


LDA 

DDEVIC 



1774 

E986 

6 D 

01 

03 


ADC 

DUN IT 



1775 

E989 

69 

FF 



ADC 

#*FF j 

i SUBTRACT i 


1776 

E9BB 

SD 

3 A 

02 


STA 

C DEVIC 

\ SET BUS ID NUMBER 


1777 





J 





1778 

E98E 

AD 

02 

03 


LDA 

DCGMND 



1779 

E991 

8 D 

3B 

02 


STA 

CCOMND ; 

fSET BUS COMMAND 


1780 





J 





1781 

E994 

AD 

OA 

03 


LDA 

DAUXi 

>STORE COMMAND FRAME AUX BYTES 1 AND 

2 

1782 

E997 

8 D 

3C 

02 


STA 

CAUX1 



1783 

E99A 

AD 

OB 

03 


LDA 

DAUX2 



1784 

E99D 

GD 

3D 

02 


STA 

CAUX2 

; DONE SETTING UP COMMAND BUFFER 


1785 





) 





1786 

E9A0 

18 




CLC 


»SET BUFFER POINTER TO COMMAND FRAME 

BUFFER 

1787 

E9A1 

A9 

3 A 



LDA 

ttCBUFLO 



1788 

E9A3 

85 

32 



STA 

BUFRLD 

>AND BUFFER END ADDRESS 


1789 

E9A5 

69 

04 



ADC 

#4 



1790 

E9A7 

85 

34 



STA 

BFENLO 



1791 

E9A9 

A9 

02 



LDA 

tfCBUFHI 



1792 

E9AB 

85 

33 



STA 

BUFRHI 



1793 

E9AD 

85 

35 



STA 

BFENHI 

i DONE SETTING UP BUFFER POINTER 


1794 





] 





1795 

E9AF 

A9 

34 



LDA 

ttNCOMLO 

jLOWER NOT COMMAND LINE 


1796 

E9B1 

SD 

03 

D3 


STA 

PBCTL 



1797 





* 





1798 

E9B4 

20 

8 E 

EC 


USR 

SENDIN 

; SEND THE COMMAND FRAME TO A SMART DEVICE 

1799 





i 





1800 

E9B7 

AD 

3F 

02 


LDA 

ERRFLG 



1801 

E9BA 

DO 

03 



BNE 

BADCOM 

.BRANCH IF AN ERROR RECEIVED 


1 S02 





i 





1803 

E9BC 

98 




TVA 




1804 

E9BD 

DO 

07 



BNE 

ACKREC 

.BRANCH IF ACK RECEIVED 


1805 





j. 





1806 





\ 





1807 

E9BF 

C6 

36 


BADCON; 

DEC 

CRETRY 

. A NACK OR TIME OUT OCCURED 



ERR LINE 

ADDR 

B1 

B2 

B3 B4 

SIO ( SERIAL 

BUS INPUT/OUTPUT CONTROLLER ) \ PAGE 45 

isos 

E9C1 

10 

B5 


BPL 

COMFRM 

;SO BRANCH IF ANY RETRIES LEFT 

1809 





J 



1810 

E9C3 

4C 

06 

EA 

JMP 

DERRi 

jOTHERWISE, JUMP TO RETURN SECTION 

1811 





j 



1812 





; 



1813 

E9C6 

AD 

03 

03 

ACKREC: LDA 

DSTATS 

iACK WAS RECEIVED 

1814 

E9C9 

10 

OC 


BPL 

WATCOM 

;BRANCH TO WAIT FOR COMPLETE , 

1815 





J IF THERE IS 

NO DATA TO BE 

SENT 

1816 





} 



1817 





i 



1818 





J 



1819 





;SEND A DATA 

FRAME TO PERIPHERAL 

1820 





; 



1821 

E9CB 

A9 

OD 


LDA 

#CRETRI 

iSET NUMBER OF RETRIES 

1822 

E9CD 

B5 

36 


STA 

CRETRY 


1623 





s 



1824 

E9CF 

20 

6 E 

EB 

JSR 

LDPNTR 

;LOAD BUFFER POINTER WITH DCB INFORMATION 

1825 





J 



1826 

E9D2 

20 

BE 

EC 

JSR 

SENDIN 

3 GO SEND THE DATA FRAME TO A SMART DEVICE 

1827 








1828 

E9D5 

FO 

E8 


BEQ 

BADCOM 

i BRANCH IF BAD 

1829 





J 



1030 





i 



1831 





> 



1832 





iWAIT FOR COMPLETE SIGNAL FROM PERIPHERAL 

1833 





i 



1834 

E9D7 

20 

79 

EC 

WATCOM: JSR 

STTMOT 

> SET DDEVICE TIME OUT VALUES IN Y, X 

1835 





; 



1836 

E9DA 

A 9 

00 


LDA 

#*00 


1837 

E9DC 

8 D 

3F 

02 

STA 

ERRFLG 

iCLEAR ERROR FLAG 

1838 





i 



1839 

E9DF 

20 

9F 

EC 

JSR 

WAITER 

jSET UP TIMER AND WAIT 

1840 

E9E2 

FO 

12 


BEQ 

DERR 

jBRANCH IF TIME OUT 

1841 





j 



1842 





j 



1843 





, DEVICE DID NOT TIME OUT 


1844 





1 



1845 

E9E4 

2 C 

03 

03 

BIT 

DSTATS 


1846 

E9E7 

70 

07 


BVS 

MODATA 

i BRANCH IF MORE DATA FOLLOWS 

1847 








1848 

E9E9 

AD 

3F 

02 

LDA 

ERRFLG 


1849 

E9EC 

DO 

18 


BNE 

DERRI 

iBRANCH IF AN ERROR OCCURRED 

1850 

E9EE 

FO 

ID 


BEQ 

RETURN 

i OTHERWISE RETURN 

1851 





I 



1852 





i 



1853 





i 



1854 





J 



1855 





;RECEIVE A DATA FRAME FROM 

PERIPHERAL 

1856 

1857 

E9F0 

20 

6 E 

EB 

MODATA: JSR 

LDPNTR 

sLOAD BUFFER POINTER WITH DCB INFORMATION 

1858 





i 



1859 

E9F3 

20 

E2 

EA 

JSR 

RECEIV 

j GO RECEIVE A DATA FRAME 

1860 





r 



1861 

E9F6 

AD 

3F 

02 

DERR: LDA 

ERRFLG 




ERR LINE 

ADDR 

B 1 

B2 

B3 B4 

SIO < 

SERIAL 

BUS INPUT/OUTPUT CONTROLLER ) PAGE 

1862 

E9F9 

FO 

05 



BEG 

NOTERR 

< BRANCH IF NO ERROR PRECEEDED DATA 

1863 





1 




1864 

E9FB 

AD 

19 

03 


LDA 

TSTAT 

,GET TEMP STATUS 

1865 

E9FE 

85 

30 



STA 

STATUS 

iSTORE IN REAL STATUS 

1866 





t 




1867 





; 




1868 

EA00 

A5 

30 


NOTERR 

LDA 

STATUS 


1869 

EA02 

C9 

01 



CMP 

#SUCCES 


1870 

EA04 

FO 

07 



BEG 

RETURN 

>BRANCH IF COMPLETELY SUCCESSFUL 

1871 





) 




1872 

EA06 

C6 

37 


DERR 1. 

DEC 

DRETRY 


1873 

EA08 

30 

03 



BMI 

RETURN 

;BRANCH IF OUT OF DEVICE RETRIES 

1874 









1875 

EAOA 

40 

74 

E9 


JMP 

COMMND 

;OTHERWISE, ONE MORE TIME 

1876 





i 




1877 





] 




1878 





j 




1879 





j 




1800 

EAOD 

20 

63 

EC 

RETURN 

JSR 

SENDDS 

: DISABLE POKEY INTERRUPTS 

1881 

EA10 

A9 

00 



LDA 

#0 


1882 

EA12 

85 

42 



STA 

CRITIC 


1883 

EA14 

A4 

30 



LDY 

STATUS 

,RETURN STATUS IN Y 

1884 

EA16 

8 C 

03 

03 


STY 

DSTATS 

AND THE DCB STATUS WORD 

1885 

EA19 

60 




RTS 

RETURN 


1886 





i 




1887 





J 




1888 









1889 





j 




1890 





;WAIT SUBROUTINE 


1891 





J 




1892 





;WAITS 

FOR COMPLETE OR ACK 


1893 





;RETURNS Y=$FF 

IF SUCCESSFUL 

Y=$00 IF NOT 

1894 





/ 




1895 

EA1A 

A9 

00 


WAIT: 

LDA 

#$00 


1896 

EA1C 

8 D 

3F 

02 

* 

STA 

ERRFLG 

;CLEAR ERROR FLAG 

1897 





j 




1898 

EA1F 

18 




CLC 


;LOAD BUFFER POINTER WITH ADDRESS 

1899 

EA20 

A9 

3E 



LDA 

#TEMPLQ 

,OF TEMPORARY RAM CELL 

1900 

EA22 

85 

32 



STA 

BUFRLO 


1901 

EA24 

69 

01 



ADC 

#1 


1902 

EA26 

85 

34 



STA 

BFENLQ 

.ALSO SET BUFFER END +1 ADDRESS 

1903 

EA28 

A9 

02 



LDA 

#TEMPHI 


1904 

EA2A 

85 

33 



STA 

BUFRHI 


1905 

EA2C 

85 

35 



STA 

BFENHI 

.DONE LOADING POINTER 

1906 





p 




1907 

EA2E 

A9 

FF 



LDA 

#$FF 


1908 

EA30 

85 

3C 



STA 

NQCKSM 

;SET NO CHECKSUM FOLLOWS DATA FLAG 

1909 





j 




1910 

EA32 

20 

E2 

EA 


JSR 

RECEIV 

.GO RECEIVE A BYTE 

1911 





i 




1912 

EA35 

AO 

FF 



LDY 

#$FF 

;ASSUME SUCCESS 

1913 

EA37 

A5 

30 



LDA 

STATUS 


1914 

EA39 

09 

01 



CMP 

#5UCCES 


1915 

EA3B 

DO 

19 



BNE 

NWQK 

'.BRANCH IF IT DID NOT WORK OK 


46 




ERR 


LINE 

ADDR 

B 1 

B2 

B3 B4 

SIO ( 

SERIAL BUS INPUT/DUTPUT CONTROLLER ) PAGE 47 

1916 





p 




1917 





j 




1918 





j 




1919 





i 




1920 

EA3D 

AD 

3E 

02 

WOK: 

LDA 

TEMP 

j MAKE SURE THE BYTE SUCCESSFULLY RECEIVED 

1921 

EA40 

C9 

41 



CMP 

#ACK 

jWAS-ACTUALLY AN ACK OR COMPLETE 

1922 

EA42 

F0 

21 



BEG 

GOOD 


1923 

EA44 

C9 

43 



CMP 

#CQMPLT 


1924 

EA46 

FO 

ID 



BEG 

GOOD 


1925 





1 




1926 

EA48 

C9 

45 



CMP 

TERROR 


1927 

EA4A 

DO 

06 



BNE 

NOTDER 

;BRANCH IF DEVICE DID NOT SEND BACK 

1928 





;A DEVICE ERROR 

CODE 


1929 

EA4C 

A9 

90 



LDA 

#DERROR 


1930 

EA4E 

85 

30 



STA 

STATUS 

;SET DEVICE ERROR STATUS 

1931 

EA50 

DO 

04 



BNE 

NWOK 


1932 





1 




1933 

EA52 

A9 

SB 


NOTDER 

: LDA 

#DNACK 

iOTHERWISE SET NACK STATUS 

1934 

EA54 

85 

30 



STA 

STATUS 


1935 





1 




1936 

EA56 

A5 

30 


NWOK: 

LDA 

STATUS 


1937 

EA58 

C9 

8A 



CMP 

ttTIMOUT 


1938 

EA5A 

FO 

07 



BEG 

BAD 

iBRANCH IF TIME OUT 

1939 





j 




1940 

EA5C 

A9 

FF 



LDA 

#$FF 


1941 

EASE 

8D 

3F 

02 


STA 

ERRFLG 

;SET SOME ERROR FLAG 

1942 

EA61 

DO 

02 



BNE 

GOOD 

3 RETURN WITH OUT SETTING Y = 0 

1943 





) 




1944 

EA63 

AO 

00 


BAD: 

LDY 

#0 


1945 





j 




1946 

EA65 

A5 

30 


GOOD: 

LDA 

STATUS 


1947 

EA67 

8D 

19 

03 


STA 

TSTAT 


1948 

EA6A 

60 




RTS 


\RETURN 

1949 





( 




1950 





j 




1951 





j 




1952 





i 




1953 





i 




1954 





i SEND 

SUBROUTINE 


1955 





; 




1956 





;SENDS 

A BUFFER 

OF BYTES 

OUT OVER THE SERIAL BUS 

1957 





3 




1958 





; 




1959 

EA6B 

A9 

01 


SEND: 

LDA 

ttSUCCES 

iASSUME SUCCESS 

1960 

EA6D 

85 

30 



STA 

STATUS 


1961 





j 




1962 

EA6F 

20 

F6 

EB 


JSR 

SENDEN 

jENABLE SENDING 

1963 





i 




1964 

EA72 

AO 

00 



LDY 

#0 


1965 

EA74 

84 

31 



STY 

CHKSUM 

;CLEAR CHECK SUM 

1966 

EA76 

84 

3B 



STY 

CHKSNT 

j CHECKSUM SENT FLAG 

1967 

EA78 

84 

3A 



STY 

XMTDON 

JTRANSMISSION DONE FLAG 

1968 





! 




1969 





J 





ERR LINE ADDR B1 B2 B3 B4 


SIO ( SERIAL BUS INPUT/OUTPUT CONTROLLER ) 


PAGE 


48 


1970 

EA7A 

B1 

32 



LDA 

(BUFRLO)iY 

iPUT FIRST BYTE FROM BUFFER 

1971 

1972 

1973 

EA7C 

8D 

OD 

D2 

I 

STA 

SEROUT 

i INTO THE SERIAL OUTPUT REGISTER 

1974 

1975 

EA7F 

85 

31 



STA 

CHKSUM 

SPUT IT IN CHECKSUM 

1976 

EA81 

A5 

11 


NOTDON; 

LDA 

BRKKEY 


1977 

EA83 

DO 

03 



BNE 

NTBRKO 


1978 

1979 

EA85 

4C 

A4 

ED 


JMP 

BROKE 

> UUMP IF BREAK KEY PRESSED 

1980 

EA88 

A5 

3A 


NTBRKO: 

LDA 

XMTDON 

,LOOP UNTIL TRANSMISSION IS DONE 

1981 

EA8A 

FO 

F5 



BEG 

NOTDON 


1982 

1983 

1984 

EA8C 

20 

63 

EC 

J 

JSR 

SENDDS 

;DISABLE SENDING 

1985 

EA8F 

60 




RTS 


,RETURN 


1986 , 

1987 , 

1988 

1989 ; 

1990 

1991 

1^92 jOUTPUT DATA NEEDED INTERRUPT SERVICE ROUTINE 

1993 i 


1994 

EA90 

98 


ISRDDN; TYA 



1995 

1996 

EA91 

48 


PHA 

> 


;SAVE Y REG ON STACK 

1997 

EA92 

E6 

32 

INC 

BUFRLO 

;INCREMENT BUFFER POINTER 

1998 

EA94 

DO 

02 

BNE 

NOWRPO 


1999 

EA96 

E6 

33 

INC 

BUFRHI 



2000 

2001 EA98 A5 33 NOWRPO 

2002 EA9A C5 35 

2003 EA9C 90 22 

2004 EA9E A5 32 

2005 EAAO C5 34 

2006 EAA2 90 1C 

2007 j 

2008 EAA4 A5 3B 

2009 EAA6 DO OB 

2010 j 

2011 EAA8 A5 31 

2012 EAAA SD OD D2 

2013 EAAD A9 FF 

2014 EAAF 85 3B 

2015 EAB1 DO 09 

2016 ; 

2017 EAB3 A5 10 RELONE: LDA P0KM3K ; ENABLE TRANSMIT DONE INTERRUPT 

2018 EAB5 09 08 ORA #$08 

2019 EAB7 85 10 STA POKMSK 

2020 EAB9 8D OE D2 STA IRGEN 

2021 ; 

2022 EAEC 68 CHKDON; PLA 

2023 EABD A8 JAY 


LDA BUFRHI ;CHECK IF PAST END OF BUFFER 

CMP BFENHI 

BCC NOTEND 

LDA DUFRLO 

CMP BFENLO 

BCC NOTEND iBRANCH IF NOT PAST END OF BUFFER 

LDA CHKSNT 

BNE RELONE ; BRANCH IF CHECKSUM ALREADY SENT 

LDA CHKSUM 

STA SEROUT 1 SEND CHECK SUM 

LDA #$FF 

STA CHKSNT J SET CHECKSUM SENT FLAG 

BNE CHKDON 


iRESTORE Y REG 


LINE 

ADDR 

B1 

B2 

B3 B4 

SIO ( 

SERIAL BUS INPUT/OUTPUT CONTROLLER ) PAGE 

2024 

EABE 

68 




PLA 


* RETURN FROM INTERRUPT 

2025 

EABF 

40 




RTI 



2026 





i 




2027 





J 




2028 

EACO 

AO 

00 


NOTEND: 

LDY 

#0 


2029 

EAC2 

B 1 

32 



LDA 

(BUFRLO)/ 

Y i PUT NEXT BYTE FROM BUFFER 

2030 

EAC4 

8D 

OD 

D2 


STA 

SEROUT 

iINTO THE SERIAL OUTPUT REGISTER 

2031 





> 




2032 

EAC7 

18 




CLC 


iADD IT TO CHECKSUM 

2033 

EAC8 

65 

31 



ADC 

CHKSUM 


2034 

EACA 

69 

00 



ADC 

#0 


2035 

EACC 

85 

31 



STA 

CHKSUM 


2036 





P 




2037 

EACE 

4C 

BC 

EA 


JMP 

CHKDON 

;GO RETURN 

2038 





t 




2039 





t 




2040 





i 




2041 





j 




2042 





J 




2043 





; 




2044 





;TRANSMIT DONE 

INTERRUPT 

SERVICE ROUTINE 

2045 









2046 

EAD1 

A5 

3B 


ISRTD: 

LDA 

CHKSNT 


2047 

EAD3 

FO 

OB 



BEQ 

FOOEY 

i BRANCH IF CHECKSUM NOT YET SENT 

2048 





7 




2049 

EAD5 

85 

3A 



STA 

XMTDQN 

1 OTHERWISE BET TRANSMISSION DONE FLAG 

2050 





7 




2051 

EAD7 

A5 

10 



LDA 

PQKMSK 

iDISABLE TRANSMIT DONE INTERRUPT 

2052 

EAD9 

29 

F7 



AND 

#*F7 


2053 

EADB 

85 

10 



STA 

PQKMSK 


2054 

EADD 

8D 

OE 

D2 


STA 

IRGEN 


2055 





; 




2056 

EAEO 

68 



FOOEY: 

PLA 


jRETURN FROM INTERRUPT 

2057 

EAE1 

40 




RTI 



2058 









2059 









2060 









2061 









2062 









2063 









2064 









2065 









2066 





;RECEIVE SUBROUTINE 


2067 





; 




2068 

EAE2 

A9 

00 


RECEIV 

LDA 

#0 


2069 





J 




2070 

EAE4 

AC 

OF 

03 


LDY 

CASFLG 


2071 

EAE7 

DO 

02 



BNE 

NQCLR 

iBRANCH IF CASSETTE 

2072 





J 




2073 

EAE9 

85 

31 



STA 

CHKSUM 

iCLEAR CHKSUM 

2074 

EAEB 

85 

38 


NQCLR: 

STA 

BUFRFL 

;BUFFER FULL FLAG 

2075 

EAED 

85 

39 



STA 

RECVDN 

jRECEIVE DONE FLAG 


2076 

2077 


49 



ERR LINE 

ADDR 

B 1 

B2 

B3 B4 

SIO ( 

SERIAL 

BUS INPUT/OUTPUT CONTROLLER ) PAGE 

2079 





. 




2079 

EAEF 

A9 

01 



LDA 

ttSUCCES 


2080 

EAF1 

85 

30 



STA 

STATUS 

iSET GOOD STATUS FOR DEFAULT CASE. 

2081 

EAF3 

20 

IF 

EC 


JSR 

RECVEN 

iDO RECEIVE ENABLE 

2082 

EAF6 

A9 

3C 



LDA 

#NCOMHI 

iCOMMAND FRAME HI COMMAND 

2083 

EAF8 

8D 

03 

D3 


STA 

PBCTL 

rSTORE IN PIA 

2084 

EAFB 

A5 

11 


CHKTIM: 

LDA 

BRKKEY 


2085 

EAFD 

DO 

03 



BNE 

NTBRK1 


2086 

EAFF 

4C 

A4 

ED 


JMP 

BROKE 

iJUMP IF BREAK KEY PRESSED 

2087 





I 




2088 

EB02 

AD 

17 

03 

NTBRK1: 

LDA 

TIMFLG 

; NO, 

2089 

EB05 

FO 

05 



BEQ 

TOUT 

j IF TIMEOUT, GO SET ERROR STATUS 

2090 

EB07 

A5 

39 



LDA 

RECVDN 


2091 

EB09 

FO 

FO 



BEQ 

CHKTIM 

iDONE 7 

2092 

EBOB 

60 



GOBACK: 

RTS 



2093 

EBOC 

A9 

8A 


TOUT: 

LDA 

#TIMQUT 

; YES, 

2094 

EBOE 

85 

30 



STA 

STATUS 

> SET TIMEOUT STATUS 

2095 





J 




2096 





J 




2097 





j 




2098 





jr 




2099 





£ 




2100 





j 




2101 

EB10 

60 



RRETRN: 

RTS 


;RETURN 

2102 









2103 





i 




2104 





i 




2105 





j 




2106 









2107 





j 




2108 





i 




2109 





i SERIAL 

INPUT 

READY INTERRUPT SERVICE ROUTINE 

2110 









2111 

EB11 

98 



ISRSIR: 

TYA 



2112 

EB 12 

48 




PHA 


JSAVE Y REG ON STACK 

2113 





J- 




2114 





J 




2115 





1 




2116 

EB 13 

AD 

OF 

D2 


LDA 

SKSTAT 


2117 

EB 16 

8D 

OA 

D2 


STA 

SKRES 

?RESET STATUS REGISTER 

2118 





;******** THIS MAY NOT 

BE THE PLACE TO DO IT ***-***-**•* 

2119 





i 




2120 

EB 19 

30 

04 



BMI 

NTFRAM 

iBRANCH IF NO FRAMING ERROR 

2121 





r 




2122 

EB IB 

AO 

8C 



LDY 

#FRMERR 


2123 

EB IB 

84 

30 



STY 

STATUS 

;SET FRAME ERRORR STATUS 

2124 





) 




2125 

EB IF 

29 

20 


NTFRAM: 

AND 

#$20 


2126 

EB21 

DO 

04 



BNE 

NTOVRN 

jBRANCH IF NO OVERRUN ERROR 

2127 





f 




2128 

EB23 

AO 

8E 



LDY 

#OVRRUN 


2129 

EB25 

84 

30 



STY 

STATUS 

i SET OVERRUN ERROR STATUS 

2130 





i 




2131 

EB27 

A5 

38 


NTOVRN: 

LDA 

BUFRFL 



50 



ERR LINE ADDR B1 B2 B3 B4 


SIO ( SERIAL BUS INPUT/OUTPUT CONTROLLER > 


PAGE 


51 


2132 

EB29 

FO 

13 



BEG 

NOTYET 

iBRANCH IF BUFFER WAS NOT YET FILLED 

2133 





} 




2134 

EB2B 

AD 

OD 

D2 


LDA 

SERIN 

i THIS INPUT BYTE IS THE CHECKSUM 

2135 

EB2E 

C5 

31 



CMP 

CHKSUM 


2136 

F.B30 

FO 

04 



BEG 

SRETRN 

,BRANCH IF CHECKSUMS MATCH 

2137 





j 




2138 

EB32 

AO 

8F 



LDY 

#CMKERR 


2139 

EB34 

84 

30 



STY 

STATUS 

;SET CHECKSUM ERROR STATUS 

2140 





f 




2141 

EB36 

A9 

FF 


SRETRN: 

LDA 

#*FF 

;SET RECEIVE DONE FLAG 

2142 

EB38 

85 

39 



STA 

RECVDN 


2143 





j 




2144 

EB3A 

68 



8U5UAL: 

PLA 



2145 

EB3B 

AS 




TAY 


,RESTORE V REG 

2146 

EB3C 

63 




PLA 


/ RETURN FROM INTERRUPT 

2147 

EB3D 

40 




RTI 



2148 





i 




2149 





j 




2150 





; 




2151 

EB3E 

AD 

OD 

D2 

NOTYET: 

LDA 

SERIN 


2152 

EB41 

AO 

00 



LDY 

#0 


2153 

EB43 

91 

32 



STA 

(BUFRLO),Y 

; STORE INPUT REGISTER INTO BUFFER 

2154 





i 




2155 

EB45 

IS 




CLC 


;ADD IT TO CHECKSUM 

2156 

EB46 

65 

31 



ADC 

CHKSUM 


2157 

EB48 

69 

00 



ADC 

#0 


2158 

EB4A 

85 

31 



STA 

CHKSUM 


2159 





r 




2160 

EB4C 

E6 

32 



INC 

BUFRLO 

;INCREMENT BUFFER POINTER 

2161 

EB4E 

DO 

02 



BNE 

NTWRP1 


2162 

E1350 

E6 

33 



INC 

BUFRHI 


2163 





t 




2164 

EB52 

A5 

33 


NTWRP1: 

LDA 

BUFRHI 


2165 

EB54 

C5 

35 



CMP 

BFENHI 


2166 

EB56 

90 

E2 



BCC 

SUSUAL 


2167 

EB58 

A5 

32 



LDA 

BUFRLO 


2168 

EB5A 

C5 

34 



CMP 

BFENLO 


2169 

EB5C 

90 

DC 



BCC 

SUSUAL 

jBRANCH IF NEW BUFFER ADDRESS IS IN BUFFER 

2170 





i 




2171 

EB5E 

A5 

3C 



LDA 

NOCKSM 


2172 

EB6G 

FO 

06 



BEG 

GOON 

iBRANCH IF A CHECKSUM WILL FOLLOW DATA 

2173 





; 




2174 

EB62 

A9 

00 



LDA 

#0 


2175 

EB64 

85 

3C 



STA 

NOCKSM 

;CLEAR NO CHECKSUM FLAG 

2176 





I 




2177 

EB66 

FO 

CE 



BEG 

SRETRN 

,GO RETURN AND SET RECEIVE DONE FLAG 

2178 





3 




2179 





i 




2180 

EB68 

A9 

FF 


GOON: 

LDA 

#*FF 


2181 

EB6A 

85 

38 



STA 

BUFRFL 

■ SET BUFFER FULL FLAG 

2182 





; 




2183 

EB6C 

DO 

CC 



BNE 

SUSUAL 

;GO RETURN 


2184 

2185 


ERR LINE 

ADDR 

B1 

B2 

B3 B4 


SIO ( SERIAL 

BUS INPUT/OUTPUT CONTROLLER ) PAGE 5 

2186 





i 




2187 





■ t 




2188 





i 




2189 





i 




2190 





} 




2191 





} 




2192 





> LOAD BUFFER 

POINTER SUBROUTINE 

2193 









2194 





} 

LOAD BUFFER 

POINTER WITH 

DCB BUFFER INFORMATION 

2195 









2196 

EB6E 

18 



LDPNTR: CLC 



2197 

EB6F 

AD 

04 

03 


LDA 

DBUFLO 


2198 

EB72 

85 

32 



STA 

BUFRLO 


2199 

EB74 

6D 

08 

03 


ADC 

DBYTLO 


2200 

EB77 

85 

34 



STA 

BFENLG 

;ALSO SET BUFFER END + 1 ADDRESS 

2201 





j) 




2202 

EB79 

AD 

05 

03 


LDA 

DEUFHI 


2203 

EB7C 

85 

33 



STA 

BUFRHI 


2204 

EB7E 

6D 

09 

03 


ADC 

DBYTHI 


2205 

EB81 

85 

35 



STA 

BFENHI 


2206 





j 




2207 

EB83 

60 




RTS 


iRETURN 

2208 









2209 









2210 





J 




2211 









2212 









2213 





i 




2214 









2215 









2216 






> CASSETTE HANDLING CODE 


2217 









2218 

EB84 

AD 

03 

03 

CASENT: L.DA 

DSTATS 


2219 

EB87 

10 

2E 



BPL 

CASRED 

?BRANCH IF INPUT FROM CASSETTE 

2220 









2221 






, WRITE A RECORD 


2222 






1 



2223 

EBS9 

A9 

CC 



LDA 

#B600L0 

j SET BAUD RATE TO 600 

2224 

EB8B 

8D 

04 

D2 


STA 

AUDF3 


2225 

EBBE 

A9 

05 



LDA 

#B600HI 


2226 

EB90 

8D 

06 

D2 


STA 

AUDF4 


2227 









2228 

EB93 

20 

F6 

EB 


JSR 

SENDEN 

iTURN ON POKEY MARK TONE 

2229 






) 



2230 

EB96 

AO 

OF 



LDY 

#WSIRG 

iLOAD SHORT WRITE INTER RECORD GAP TIME 

2231 

EB9S 

AD 

OB 

03 


LDA 

DAUX2 


2232 

EB9B 

30 

02 



BMI 

SRTIRO 

;BRANCH IF SHORT GAP IS DESIRED 

2233 






i 



2234 

EB9D 

AO 

B4 



LDY 

#WIRGLQ 

iSET WRITE IRQ TIME 

2235 

EB9F 

A 2 

00 


SRTIRO: LDX 

#WIRGHI 


2236 

EBA1 

20 

BD 

ED 


JSR 

SETVBX 


2237 






J 



2238 

EBA4 

A9 

34 



LDA 

SMOTRGO 


2239 

EBA6 

8D 

02 

D3 


STA 

PACTL 

iTURN ON MOTOR 


ERR LINE 

ADDR 

El 

B2 

B3 B4 

510 < 

SERIAL 

BUS INPUT/OUTPUT CONTROLLER ) PAGE 53 

2240 





i 




2241 

EBA9 

AD 

17 

03 

TIMIT: 

LDA 

TIMFLG 

iLOOP UNTIL DONE 

2242 

EBAC 

DO 

FB 



BNE 

TIMIT 


2243 





i 




2244 

EBAE 

20 

6E 

EB 


JSR 

LDPNTR 

iLOAD BUFFER POINTER WITH DCB INFORMATION 

2245 





J 




2246 

EBB 1 

20 

6B 

EA 


J5R 

SEND 

iSEND A BUFFER 

2247 





i 




2248 

EBB 4 

4C 

E3 

EB 


JMP 

CRETRN 

;GO RETURN 

2249 





J 




2250 





i 




2251 





} 




2252 





iRECEIVE A RECORD 


2253 





i 




2254 

EBB7 

A9 

FF 


CA5RED: 

LDA 

#$FF 


2255 

EBB9 

8D 

OF 

03 


ST A 

CASFLG 

,SET SET CASSETTE FLAG 

2256 





; 




2257 

EBBC 

AO 

OA 



LDY 

#RSIRG 

iLOAD SHORT READ INTER RECORD GAP TIME 

2258 

EBBE 

AD 

OB 

03 


LDA 

DAUX2 


2259 

EBC1 

30 

02 



BMI 

SRTIR1 

iBRANCH IF SHORT GAP IS DESIRED 

2260 





i 




2261 

EBC3 

AO 

78 



LDY 

#RIRGLG 

iSET TIME OUT FOR READ 1RG 

2262 

EBC5 

A2 

00 


SRTIR1: 

LDX 

#RIRGHI 


2263 

EBC7 

20 

BD 

ED 


JSR 

SETVBX 


2264 





, 




2265 

EBCA 

A9 

34 



LDA 

#MOTRGO 


2266 

EBCC 

8D 

02 

D3 


STA 

PACTL 

;TURN ON MOTOR 

2267 









2268 

EBCF 

AD 

17 

03 

TIMIT1 

LDA 

TIMFLG 

i LOOP UNTIL DONE 

2269 

EBD2 

DO 

FB 



BNE 

TIMIT1 


2270 





# 




2271 

EBD4 

20 

6E 

EB 


JSR 

LDPNTR 

;LOAD BUFFER POINTER WITH DCB INFORMATION 

2272 





1 




2273 

EBD7 

20 

79 

EC 


JSR 

STTMOT 

;SET DEVICE TIME OUT IN Y, X 

2274 

EBDA 

20 

BD 

ED 


JSR 

SETVBX 


2275 





J 




2276 

EBDD 

20 

14 

ED 


JSR 

BEGIN 

t SET INITIAL BAUD RATE 

2277 





J 




2278 

EBEO 

20 

E2 

EA 


JSR 

RECEIV 

iGO RECEIVE A BLOCK 

2279 





i 




2280 

EBE3 

AD 

OB 

03 

CRETRN 

LDA 

DAUX2 


2281 

EBE6 

30 

05 



BMI 

SRTIR2 

; BRANCH IF DOING SHORT INTER RECORD GAPS 

2282 





; DON'' 

r TURN 

OFF CASSETTE 

MOTOR 

2283 

EBE8 

A9 

3C 



LDA 

#MOTRST 


2284 

EBEA 

8D 

02 

D3 


STA 

PACTL 

; TURN OFF MOTOR 

2285 





J 




2286 

EBED 

4C 

OD 

EA 

SRTIR2: 

; JMP 

RETURN 

; GO RETURN 

2287 





j 




2288 





/ 




2289 





J 




2290 





j 




2291 





J 




2292 

EBFO 

A9 

00 


JTIMER: 

: LDA 

#$00 


2293 

OOEB 




JTADRH 


JTIMER/256 

iHI BYTE OF JUMP TIMER ROUTINE ADDR 



ERR LINE 

ADDR 

B1 

B2 

B3 B4 

SIO ( 

SERIAL 

BUS INPUT/OUTPUT CONTROLLER ) PAGE 54 

2294 

00F0 




JTADRL 

=s 

<-256)*JTADRH+JTIMER 

2295 

ET3F2 

8D 

17 

03 


STA 

TIMFLG 

JSET TIME OUT FLAG 

2296 

EBF5 

60 




RTS 



2297 









2298 





> 




2299 





i 




2300 





1 




2301 





j 




2302 





; 




2303 





iSEND ENABLE 

SUBROUTINE 


2304 





i 




2305 

EBF6 

A9 

07 


SENDEN: 

LDA 

#'$07 

;MASK OFF PREVIOUS SERIAL BUS CONTROL BITS 

2306 

EBF8 

2D 

32 

02 


AND 

SSKCTL 


2307 

EBFB 

09 

20 



ORA 

#$20 

iSET TRANSMIT MODE 

2308 





] 




2309 

EBFD 

AC 

00 

03 


LDY 

DDEVIC 


2310 

ECOO 

CO 

60 



CRY 

#CASET 


2311 

EC02 

DO 

OC 



BNE 

NOTCAS 

.BRANCH IF NOT CASSETTE 

2312 





; 




2313 

EC 04 

09 

08 



ORA 

#$08 

iSET THE FSK OUTPUT BIT 

2314 





i 




2315 

EC06 

AO 

07 



LDY 

#LOTONE 

iSET FSK TONE FREQUENCIES 

2316 

EC 08 

8C 

02 

D2 


STY 

AUDF2 


2317 

ECOB 

AO 

05 



LDY 

#HITONE 


2318 

ECOD 

8C 

00 

D2 


STY 

AUDF1 


2319 





i 




2320 

EC 10 

8D 

32 

02 

NOTCAS: 

STA 

SSKCTL 

; STORE NEW VALUE TO SYSTEM MASK 

2321 

EC 13 

8D 

OF 

D2 


STA 

SKCTL 

i STORE TO ACTUAL REGISTER 

2322 





; 




2323 

EC 16 

A9 

C7 



LDA 

#$C7 

; MASK OFF PREVIOUS SERIAL BUS INTERRUPT BITS 

2324 

EC 18 

25 

10 



AND 

pQ^MCl^ 


2325 

EC 1A _ 

09 

10 



ORA 

#$lw 

; ENABLE OUTPUT DATA NEEDED INTERRUPT 

2326 

- 




; 




2327 









2328 

EC 1C 

4C 

35 

EC 


JMP 

CONTIN 

i GO CONTINUE IN RECEIVE ENABLE SUBROUTINE 

2329 





j 




2330 





i 




2331 





i 




2332 





5 




2333 





i 




2334 





; 




2335 





J 




2336 





; 




2337 





j 




2338 









2339 





jRECEIVE ENABLE SUBROUTINE 


2340 





i 




2341 

EC IF 

A9 

07 


RECVEN: 

LDA 

#$07 

; MASK OFF PREVIOUS SERIAL BUS CONTROL BITS 

2342 

EC 21 

2D 

32 

02 


AND 

SSKCTL 


2343 

EC24 

09 

10 



ORA 

#$10 

; SET RECEIVE MODE ASYNCH. 

2344 

EC26 

8D 

32 

02 


STA 

SSKCTL 

;STORE NEW VALUE TO SYSTEM MASK 

2345 

EC 29 

8D 

OF 

D2 


STA 

SKCTL 

>STORE TO ACTUAL REGISTER 

2346 









2347 

EC2C 

8D 

OA 

D2 


STA 

SKRES 

.RESET SERIAL PORT/KEYBOARD STATUS REGISTER 


ERR LINE 

ADDR 

B 1 

32 

B3 34 

SIO < 

SERIAL 

BUS INPUT/OUTPUT CONTROLLER ) PAGE 

2348 





i 




2349 

EC2F 

A9 

C7 



LDA 

#*C7 

; MASK OFF PREVIOUS SERIAL BUS INTERRUPT 

2350 

EC31 

25 

10 



AND 

POKMSK 


2351 

EC33 

09 

20 



ORA 

#*20 

jENABLE RECEIVE INTERRUPT 

2352 

EC35 

85 

10 


GLINTIN'. 

STA 

POKMSK 

;STORE NEW VALUE TO SYSTEM MASK 

2353 

EC 37 

8D 

OE 

D2 


STA 

IRGEN 

;STORE TO ACTUAL REGISTER 

2354 





i 




2355 





r 




2356 

EC3A 

A9 

28 



LDA 

#*28 

iCLOCK CH. 3 WITH 1.79 MHZ 

2357 

EC3C 

8D 

08 

D2 


STA 

AUDCTL 

; CLOCK CH. 4 WITH CH. 3 

2358 





i 




2359 

EC3F 

A2 

06 



LDX 

#6 

;SET PURE TONES, NO VOLUME 

2360 

EC41 

A9 

A8 



LDA 

#$A8 


2361 

EC43 

A4 

41 



LDV 

SOUNDR 

iTEST QUIET I/O FLAG 

2362 

EC45 

DO 

02 



BNE 

N0ISE1 

;NE IS NORMAL (NOISY) 

2363 

EC47 

A9 

AO 



LDA 

#$A0 


2364 

EC 49 

9D 

01 

D2 

NQISEI: 

STA 

AUDC1,X 


2365 

EC4C 

CA 




DEX 



2366 

EC4D 

CA 




DEX 



2367 

EC4E 

10 

F9 



BPL 

NOISEI 


2368 





J 




2369 

EC50 

A9 

AO 



LDA 

#*A0 


2370 

EC 52 

8D 

05 

D2 


STA 

AUDC3 

;TURN OFF SOUND ON CHANNEL 3 

2371 

EC 55 

AC 

00 

03 


LDY 

DDEVIC 


2372 

EC 58 

CO 

60 



CPY 

#CASET 


2373 

EC5A 

FO 

06 



BEG 

CAS31 

;BRANCH IF CASSETTE IS DESIRED 

2374 

EC5C 

8D 

01 

D2 


STA 

AUDC 1 

;OTHERWISE TURN OFF CHANNELS 1 AND 2 

2375 

EC5F 

8D 

03 

D2 


STA 

AUDC 2 


2376 





j 




2377 





i 




2378 

EC 62 

60 



CAS31: 

RTS 


;RETURN 

2379 





H 




2380 





] 




2381 





J 




2382 





■ 




2383 





j 




2384 





J 




2385 





J 




2386 





J 




2387 





l 




2388 





i 




2389 





;DISABLE SEND 

AND DISABLE 

RECEIVE SUBROUTINES 

2390 





j 




2391 

EC63 

EA 



SENDDS: 

NOP 



2392 

EC64 

A9 

C7 


RECVDS: 

LDA 

#*C7 

;MASK OFF SERIAL BUS INTERRUPTS 

2393 

EC66 

25 

10 



AND 

POKMSK 


2394 

EC68 

85 

10 



STA 

POKMSK 

;STORE NEW VALUE TO SYSTEM MASK 

2395 

EC 6 A 

8D 

OE 

D2 


STA 

IRGEN 

; STORE TO ACTUAL REGISTER 

2396 





j 




2397 

EC6D 

A2 

06 



LDX 

#6 


2398 

EC6F 

A9 

00 



LDA 

#0 


2399 

EC71 

9D 

01 

D2 

ZERIT: 

STA 

AUDC1 * X 


2400 

EC74 

CA 




DEX 



2401 

EC75 

CA 




DEX 




55 

BIT 



ERR LINE 

ADDR 

B 1 

D2 33 34 

SID ( SERIAL 

3US INPUT/OUTPUT CONTROLLER > 

PAGE 

56 

2402 

2403 

EC76 

10 

F9 

3PL 

ZERIT i TURN OFF AUDIO VOLUME 



2404 

EC78 

60 


RTS 

3 RETURN 




2405 

2406 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 


2415 




SET DDEVICE 

TIME OUT VALUES 

IN Y, X SUBROUTINE 


2416 








2417 

EC79 

AD 

06 03 STTMOT: LDA 

DTIMLO 

; GET DEVICE TIME OUT IN 1 SECOND INCR 

2418 

EC7C 

6A 


ROR 

A 

iPUT 6 HI BITS IN X 

L.0 2 BITS IN Y 

2419 

EC7D 

6A 


ROR 

A 



2420 

EC7E 

A8 


TAY 


;TEMP SAVE 


2421 

EC7F 

29 

3F 

AND 

#$3F 

;MASK OFF 2 HI 3ITS 


2422 

EC81 

AA 


TAX 


,THIS IS HI BYTE OF 

TIME OUT 

2423 








2424 

EC82 

98 


TYA 


■. RESTORE 


2425 

EC83 

6A 


ROR 

A 



2426 

EC 84 

29 

CO 

AND 

#*CG 

,MASK OFF ALL BUT 2 

HI BITS 

2427 

EC86 

A8 


TAY 


iTHIS IS LO BYTE OF 

TIME OUT 

2428 








2429 

EC87 

60 


RTS 




2430 








2431 








2432 








2433 








2434 








2435 








2436 








2437 








2438 








2439 








2440 

EC88 

11 

E3 

INTTBL: . WORD 

ISRSlR 

;SERIAL INPUT READY 


2441 

EC 8 A 

90 

EA 

. WORD 

ISRODN 

iOUTPUT DATA NEEDED 


2442 

EC8C 

D1 

EA 

. WORD 

ISRTD 

, TRANSMISSION DONE 


2443 








2444 

00E3 



3IRHI 

I5R5IR/256 

;SERIAL INPUT READY 

ISR ADDRESS 

2445 

0011 


SIRLO 

('“256 > #SIRHI + ISRSIR 


2446 

OOEA 


ODNHI 

ISRODN/256 

; OUTPUT-DATA NEEDED 

ISR ADDRESS 

2447 

0090 


ODNLO 

i -256 ) -k-QDNH I +1SRODN 


2448 

OOEA 


TDHX 

XSRTD/256 

;TRANSMISSION DONE 

ISR ADDRESS 

2449 

00D1 


TDLO 

•-256>*TDHI+ISRTD 


2450 








2451 








2452 








2453 








2454 




SEND A DATA 

FRAME TO AN INTELLIGENT PERIPHERAL. 

SUBROUTINE 


2455 




ERR LINE 

A DDR 

B 1 

B2 

B3 B4 

510 C 

SERIAL 

BUS INPUT/OUTPUT CONTROLLER ) 

PAGE 

2456 





} 





2457 

EC8E 

A2 

01 


SENDIN: 

LDX 

#*01 



2453 

EC 90 

AO 

FF 


DELAYO: 

LDY 

#*FF 



2459 

EC92 

88 



DELAY1. 

DEY 




2460 

EC93 

DO 

FD 



BNE 

DELAY1 



2461 

EC95 

C A 




DEX 




2462 

EC96 

DO 

F8 



BNE 

DELAYO 



2463 





1 





2464 

EC93 

20 

6B 

EA 


USR 

SEND 

iGO SEND THE DATA FRAME 


2465 





1 





2466 

EC9B 

AO 

02 



LDY 

#CT1MLQ 

>SET ACK TIME OUT 


2467 

EC9D 

A2 

00 



LDX 

#CTIMHI 



2468 

EC9F 

20 

BD 

ED 

WAITER: 

USR 

SETVBX 



2469 





; 





2470 

ECA2 

20 

1A 

EA 


JSR 

WAIT 

iWAIT FOR ACK 


2471 





J- 





2472 

EC A 5 

93 




TYA 


;IF Y=0) A TIME OUT DR NACK OCCURED 

2473 





I 





2474 

ECA6 

60 




RTS 


7 RETURN 


2475 





3 





2476 





3 





2477 





; 





2478 





i 





2479 





) 





2480 





3 





2481 





1 





2482 





j 





2483 





; 





2484 





; 





2485 





j 





2486 





> COMPUTE VALUE FOR POKEY 

FREQ REGS FOR THE BAUD RATE AS 


2487 





3 MEASURED BY 

AN INTERVAL 

OF THE 'VCOUNT' TIMER. 


2488 










2489 

ECA7 

3D 

10 

03 

COMPUT 

ST A 

TIMER2 



2490 

EC A A 

BC 

1 1 

03 


STY 

TIMER2+1 

i SAVE FINAL TIMER VALUE 


2491 

ECAD 

20 

08 

ED 


JSR 

ADJUST 

iADJUST VCOUNT VALUE 


2492 

EC BO 

8D 

10 

03 


STA 

TIMER2 

iSAVE ADJUSTED VALUE 


2493 

ECB3 

AD 

OC 

03 


LDA 

TIMER! 



2494 

ECB6 

20 

08 

ED 


JSR 

ADJUST 

^ ADJUST 


2495 

ECB9 

SD 

OC 

03 


STA 

TIMER1 

iSAVE ADJUSTED TIMER 1 VALUE 


2496 

ECBC 

AD 

10 

03 


LDA 

TIMER 2 



2497 

ECBF 

38 




SEC 




2493 

ECCO 

ED 

OC 

03 


SBC 

TIMER1 



2499 

ECC3 

BD 

12 

03 


STA 

TEMPI 

;FIND VCOUNT DIFFERENCE 


2500 

ECC6 

AD 

11 

03 


LDA 

TIMER2+i 



2501 

ECC9 

33 




SEC 




2502 

ECCA 

ED 

OD 

03 


SBC 

TIMER 1 + 1 



2503 

EC CD 

AB 




TAY 


;FIND VBLANK COUNT DIFFERENCE 


2504 

ECCE 

A9 

7D 



LDA 

#-*83 



2505 

ECDO 

18 



HITIMR 

CLC 




2506 

ECD1 

69 

83 



ADC 

#*83 

;ACCUMULATE MULTIPLICATION 


2507 

ECD3 

88 




DEY 




2508 

ECD4 

10 

FA 



BPL 

HITIMR 

iDONE? 


2509 

ECD6 

18 




CLC 





57 



ERR LINE 

ADDR 

B1 

B2 B3 B4 

SIO ( 
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2510 

ECD7 

6D 

12 03 


ADC 

TEMPI 

jTOTAL VCOUNT DIFFERENCE 

2511 

ECDA 

A8 


FINDX: 

TAY 


iSAVE ACCUM 

2512 

ECDB 

4A 



LSR 

A 


2513 

ECDC 

4A 



LSR 

A 


2514 

ECDD 

4A 



LSR 

A 


2515 

ECDE 

OA 



ASL 

A 


2516 

ECDF 

38 



SEC 



2517 

ECEO 

E9 

16 


SBC 

#22 

/ADJUST TABLE INDEX 

2518 

ECE2 

AA 



TAX 


jDIVIDE INTERVAL BY 4 TO GET TABLE INDEX 

2519 

ECE3 

98 



TYA 


i RESTORE ACCUM 

2520 

ECE4 

29 

07 


AND 

#7 


2521 

ECE6 

AS 



TAY 


;PULL OFF 3 LO BITS OF INTERVAL 

2522 

ECE7 

A9 

F5 


LDA 

#“11 


2523 

ECE9 

18 


DOINTP: 

CLC 



2524 

ECEA 

69 

OB 


ADC 

#11 

iACCUMULATE INTERPOLATION CONSTANT 

2525 

ECEC 

88 



DEY 



2526 

ECED 

10 

FA 


BPL 

DOINTP 

;INTERPOLATION CONSTANT COMPUTATION DONE? 

2527 




> 




2528 

ECEF 

AO 

00 

ENINTP: 

LDY 

#0 


2529 

ECF1 

8C 

OE 03 


STY 

ADDCOR 

; CLEAR ADDITION CORRECTION FLAG 

2530 

ECF4 

38 



SEC 



2531 

ECF5 

E9 

07 


SBC 

#7 

i ADJUST INTERPOLATION CONSTANT 

2532 

ECF7 

10 

03 


BPL 

PLUS 


2533 

ECF9 

CE 

OE 03 


DEC 

ABDCQR 


2534 

ECFC 

18 


PLUS: 

CLC 



2535 

ECFD 

7D 

D2 ED 


ADC 

POKTAB, X 

i ADD CONSTANT TO LO BYTE TABLE VALUE 

2536 

EDOO 

A8 



TAY 


i LO BYTE POKEY FREQ VALUE 

2537 

ED01 

AD 

OE 03 


LDA 

ADDCOR 


2538 

ED04 

7D 

D3 ED 


ADC 

POKTAB+1, X 

s ADD CARRY TO HI BYTE TABLE VALUE 

2539 




i HI BYTE POKEY 

FREQ VALUE 


2540 

ED07 

60 



RTS 



2541 








2542 




i 




2543 








2544 





ROUTINE 

TO ADJUST 

VCOUNT VALUE 

2545 




i 




2546 

ED08 

C9 

7C 

ADJUST 

CMP 

#*7C 


2547 

EDOA 

30 

04 


BMI 

ADJ1 

; LARGER THAN '7C ' ? 

2548 

EDOC 

38 



SEC 


; YES, 

2549 

EDOD 

E9 

7C 


SBC 

#$7C 


2550 

EDOF 

60 



RTS 



2551 

ED 10 

18 


ADJ1: 

CLC 



2552 

EDI 1 

69 

07 


ADC 

#$7 


2553 

ED 13 

60 



RTS 



2554 




; 




2555 








2556 




i 




2557 




i 




2558 




i 




2559 




i 




2560 




t 




2561 





INITIAL 

BAUD RATE 

MEASUREMENT ~ USED TO SET THE 

2562 




i 


BAUD RATE 

AT THE START OF A RECORD. 

2563 




J 






ERR LINE ADDR 31 S2 B3 B4 
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PAGE 


59 


2564 

2565 

2566 

2567 

EDI 4 

A5 

H 


p t 

1 

BEGIN: 

LDA 

2568 

ED16 

DO 

03 



BNE 

2569 

ED 18 

4C 

A4 

ED 


UMP 

2570 

2571 

2572 

ED1B 

78 



S 

NTBRK2: 

SEI 

2573 

EDI C 

AD 

17 

03 


LDA 

2574 

ED IF 

DO 

02 



BNE 

2575 

ED21 

FO 

25 



BEG 

2576 

2577 

ED23 

AD 

OF 

D2 

i 

0KTIM1; 

LDA 

2578 

ED26 

29 

10 



AND 

2579 

ED28 

DO 

EA 



BNE 

2580 

ED2A 

8D 

16 

03 


STA 

2581 

ED2D 

AE 

OB 

D4 


LDX 

2582 

ED30 

A 4 

14 



LDY 

2583 

ED32 

8E 

OC 

03 


STX 

2584 

ED35 

SC 

OD 

03 


STY 

2585 

2586 

ED38 

A2 

01 


J 

LDX 

2587 

ED3A 

8E 

15 

03 


STX 

2588 

ED3D 

AO 

OA 



LDY 

2589 

ED3F 

A5 

1 1 


COUNT: 

LDA 

2590 

2591 

E041 

FO 

61 


_ 

BEG 

2592 

ED43 

AD 

17 

03 


LDA 

2593 

ED46 

DO 

04 



BNE 

2594 

ED48 

58 



TOUT1: 

CLI 

2595 

ED49 

4C 

OC 

EB 


JMP 

2596 

2597 

ED4C 

AD 

OF 

D2 

OKTIMR: 

LDA 

2598 

ED4F 

29 

10 



AND 

2599 

ED 51 

CD 

16 

03 


CMP 

2600 

ED 54 

FO 

E9 



BEG 

2601 

ED56 

8D 

16 

03 


STA 

2602 

ED59 

as 




DEY 

2603 

2604 

ED5A 

DO 

E3 



BNE 

2605 

ED5C 

CE 

15 

03 


DEC 

2606 

ED5F 

30 

12 



BMI 

2607 

ED61 

AD 

OB 

D4 


LDA 

2608 

ED64 

A4 

14 



LDY 

2609 

ED66 

20 

A7 

EC 


USR 

2610 

ED69 

8C 

EE 

02 


STY 

2611 

ED6C 

8D 

EF 

02 


STA 

2612 

ED6F 

AO 

09 



LDY 

2613 

2614 

ED71 

DO 

CC 


} 

BNE 

2615 

ED73 

AD 

EE 

02 

GOREAD: 

LDA 

2616 

ED76 

8D 

04 

D2 


STA 

2617 

ED79 

AD 

EF 

02 


LDA 


IT IS ASSUMED THAT THE FIRST TWO BYTES OF EVERY 
RECORD ARE 'AA' HEX. 

BRKKEY 

NTBRK2 

BROKE »JUMP-IF BREAK KEY PRESSED 


TIMFLG 

OKTIM1 ; BRANCH IF NOT TIMED OUT 

TOUT! ; BRANCH IF TIME OUT 

SKSTAT 

#$10 ;READ SERIAL PORT 

BEGIN i START BIT? 

SAVIO i SAVE SER. DATA IN 

VCOUNT i READ VERTICAL LINE COUNTER 

RTCLOK+2 ; READ LO BYTE OF VDL.ANK CLOCK 
TIMER1 

TIMER1+1 /SAVE INITIAL TIMER VALUE 

#1 ; SET MODE FLAG 

TEMP3 

#10 i SET BIT COUNTER FOR 10 BITS 

BRKKEY 

BROKE ;BRANCH IF BREAK KEY PRESSED 

TIMFLG 

QKTIMR ;BRANCH IF NOT TIMED OUT 

TOUT jBRANCH IF TIME OUT 

SKSTAT 

#$10 ,READ SERIAL PORT 

SAVIO ;DATA IN CHANGED YET? 

COUNT 

SAVIO .YES, SAVE SER. DATA IN 

;DECR. BIT COUNTER 
COUNT DONE? 

TEMP3 ,YES, 

GOREAD l DONE WITH BOTH MODES? 

VCOUNT 

RTCLOK+2 ; READ TIMER LO St HI BYTES 
COMPUT i NOi COMPUTE BAUD RATE 

CBAUDL 

CBAUDH ; SET BAUD RATE INTO RAM CELLS 

#9 }SET BIT COUNTER FOR 9 BITS 

COUNT 

CBAUDL 

AUDF3 

CBAUDH 


ERR LINE ADDR B1 BS B3 B4 
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PAGE 
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26 IQ 

ED7C 

QD 

06 

D2 

STA 

AUDF4 

;SET POKEY FREQ REGS FOR BAUD RATE 

2619 

ED7F 

A9 

00 


LDA 

#0 


2620 

ED81 

8D 

OF 

D2 

STA 

SKSTAT 


2621 

ED84 

AD 

32 

02 

LDA 

SSKCTL 


2622 

EDQ7 

8D 

OF 

D2 

STA 

SKSTAT 

iINIT. POKEY SERIAL PORT 

2623 

ED8A 

A9 

55 


LDA 

#$55 


2624 

ED8C 

91 

32 


STA 

(BUFRLD > * Y 

*STORE '$55' AS FIRST RCV. BUFFER 

2625 

ED8E 

C8 



INY 



2626 

ED8F 

91 

32 


STA 

(BUFRLG)/Y 


2627 

ED91 

A9 

AA 


LDA 

#$AA 


2628 

ED93 

85 

31 


STA 

CHKSUM 

;STORE CHECKSUM FOR 2 BYTES OF '$AA 

2629 

ED95 

IS 



CLC 



2630 

ED96 

A5 

32 


LDA 

BUFRLO 


2631 

ED98 

69 

02 


ADC 

#2 


2632 

ED9A 

85 

32 


STA 

BUFRLO 


2633 

ED9C 

A5 

33 


LDA 

BUFRHI 


2634 

ED9E 

69 

00 


ADC 

#0 


2635 

EDAO 

85 

33 


STA 

BUFRHI 

jINCR. BUFFER POINTER BY 1 

2636 

EDA2 

58 



CL I 



2637 

EDA3 

60 



RTS 



2638 








2639 





i 



2640 





j 



2641 

EDA4 

20 

63 

EC 

BROKE: JSR 

SENDDS 

j BREAK KEY WAS PRESSED* SO PREPARE 

2642 

EDA7 

A9 

3C 


LDA 

#MDTRST 

* TO RETURN 

2643 

EDA9 

8D 

02 

D3 

STA 

PACTL 

;TURN OFF MOTOR 

2644 

EDAC 

8D 

03 

D3 

STA 

PBCTL 

iRAISE NOT COMMAND LINE 

2645 





; 



2646 

EDAF 

A9 

80 


LDA 

#BRKABT 


2647 

EDB1 

85 

30 


STA 

STATUS 

j STORE BREAK ABORT STATUS CODE 

2648 








2649 

EDB3 

AE 

13 

03 

LDX 

STACKP 


2650 

EDB6 

9A 



TXS 


RESTORE STACK POINTER 

2651 





j 



2652 

EDB7 

C6 

ii 


DEC 

BRKKEY 

JSET BREAK KEY FLAG TO NONZERO 

2653 

EDB9 

58 



CLI 


i ALLOW IRQ'S 

2654 





i 



2655 

EDBA 

4C 

OD 

EA 

JMP 

RETURN 

» GO RETURN 


2656 : 

2657 i 

2658 

2659 

2660 ; 

2661 EDBD A9 FO SETVBX: LDA #JTADRL ;STORE TIME OUT ROUTINE ADDRESS 

2662 EDBF 8D 26 02 STA CDTMA1 

2663 EDC2 A9 EB LDA #JTADRH 

2664 EDC4 8D 27 02 STA CDTMA1+1 

2665 t 

2666 EDC7 A9 01 LDA #1 ; SET FOR TIMER 1 

2667 EDC9 8D 17 03 STA TIMFLG ; SET FLAG TO NOT TIMED OUT 

2668 

2669 EDCC 78 SEI ; THE SETVBL ROUTINE NEEDS THIS TO CUT SHORT 

2670 EDCD 20 5C E4 JSR SETVBV i ANY VBLANKS THAT OCCUR 

2671 EDDO 58 CLI 



ERR LINE ADDR 


Bi B2 B3 B4 
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2672 EDD1 60 

2673 

2674 

2675 

2676 

2677 

2678 

2679 

2680 
2681 
2682 

2683 

2684 

2685 

2686 

2687 

2688 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 


RTS 


'VCOUNT' INTERVAL TIMER MEASUREMENT -- TO — POKEY FREQ REG VALU 
CONVERSION TABLE 


i THE VALUES STORED IN THE TABLE ARE 'AUDF+7'. 

; THE FOLLOWING FORMULAS WERE USED TO DETERMINE THE TABLE VALUES; 

j F OUT= F IN/(2*<AUDF+M>) , WHERE F IN®!. 78979 MHZ. I M=7 

1 FROM THIS WAS DERIVED THE FORMULA USED THE COMPUTE THE 
i TABLE VALUES BASED ON A MEASUREMENT OF THE PERIOD BY 
f AN INTERVAL OF THE 'VCGUNT' TIMER. 

\ AUDF+7”(11. 365167)#T OUT , WHERE T OUT™# OF COUNTS <127 USEC. 
i RESOLUTION) OF 'VCOUNT' FOR 1 
I CHARACTER TIME <10 BIT TIMES). 


2700 


2701 




* 

AUDF+7 

iBAUD RATE 

VCQUNT INTERVAL 

2702 




i 




2703 




s .WORD 

$27C 

> 1407 

56 

2704 




} ,WORD 

$2D7 

i 1231 

64 

2705 




i .WORD 

$332 

> 1094 

72 

2706 




i . WORD 

$38D 

> 985 

80 

2707 

EDD2 

E 8 

03 

POKTAB. . WORD 

$3E8 

i 895 

88 

2708 

EDD4 

43 

04 

. WORD 

$443 

i 820 

96 

2709 

EDD 6 

9E 

04 

. WORD 

$49E 

i 757 

104 

2710 

EDD 8 

F9 

04 

. WORD 

$4F9 

> 703 

112 

2711 

EDDA 

54 

05 

. WORD 

$554 

i 656 

120 

2712 

EDDC 

AF 

05 

. WORD 

$5AF 

5 615 

128 

2713 

EDDE 

OA 

06 

. WORD 

$60A 

■; 579 

136 

2714 

EDEO 

65 

06 

. WORD 

$665 

7 547 

144 

2715 

EDE2 

CO 

06 

. WORD 

$6C0 

) 518 

152 

2716 

EDE4 

1A 

07 

. WORD 

$71A 

; 492 

160 

2717 

EDE 6 

75 

07 

. WORD 

$775 

469 

168 

2718 

EDE 8 

DO 

07 

WORD 

$7D0 

s 447 

176 

2719 




l WORD 

$82B 

: 428 

184 

2720 




i . WORD 

$886 

i 410 

192 

2721 




; .WORD 

$8E1 

i 394 

200 

2722 




i ■WORD 

$93C 

t 379 

208 

2723 




i .WORD 

$997 

i 365 

216 

2724 




i . WORD 

$9F2 

; 352 

224 

2725 




j . WORD 

$A4D 

; 339 

232 
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ERR LINE 

ADDR 

2726 


2727 


2728 


2729 


2730 


2731 


2732 


2733 

EDEA 

2734 


2735 

0014 


B1 B2 B3 B4 


00 


. WORD $AA8 > 328 

WORD *BQ3 ,318 


240 

248 


; *********************************************************************** 
CRNTP3 =* 

*=$14 

SIOSPR: .BYTE DSK0RG-CRNTP3 ;"GSIOL IS TOO LONG 
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2736 

2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 0002 

2745 OOEA 

2746 

2747 

2748 

2749 

2750 

2751 

2752 0031 

2753 0050 

2754 0053 

2755 0021 

2756 0000 

2757 0040 

2758 0080 

2759 

2760 

2761 

2762 

2763 

2764 

2765 E450 

2766 E453 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 


4C EA ED 
4C FO ED 


TITLE ■'DISK ***** DISKP. SRC ***** 3/9/79 ***** 4:00:00 P. M. 


J 

STATVH = DV5TAT/256 

STATVL = <-256)>STATVH+DVSTAT :STATUS POINTER 


; CONSTANT EQUATES 

/ 

DISKID 
PUTSEC 
STATC 
FOMAT 
NODAT 
GETDAT 
PUTDAT 


VECTORS 

*=*E450 

JMP DINIT ;DISK INIT. VECTOR 

JMP DSKIF * DISK INTERFACE ENTRY POINT 


CONSTANTS 

*=DSKORG 


*************************************************■**■***■**■****************■**' 
DISK INTERFACE ROUTINE STARTS HERE 

******************************************************************************** 


<$31 i SERIAL BUS DISK I. D. 

$50 1 DISK PUT SECTOR DCB COMMAND 

$53 iDISK STATUS DCB COMMAND 

$21 i DISK FORMAT DCB COMMAND ! 1 ''! ***** 

0 , SIO COMMAND FOR "NO DATA 11 OPERATION 

$40 jSIG COMMAND FOR 11 DATA FROM DEVICE* 1 

$80 iSIQ COMMAND FOR "DATA TO DEVICE 1 * 






ERR 


LINE 

ADDR 

B1 

B2 

B3 B4 

DISK ***** DISKP. SRC ***** 

3/9/79 ***** 4:00:00 P PAGE 64 

2790 





1 




2791 









2792 





i 

DISK 

INTERFACE INITIALIZATION ROUTINE 

2793 





t 




2794 

EDEA 

A9 

AO 


DINIT: 

LDA 

#160 


2795 

EDEC 

8D 

46 

02 


STA 

DSKTIM 

; SET INITIAL DISK TIMEOUT TO 160 SEC 

2796 

EDEF 

60 




RTS 



2797 





; 




279S 





J 




2799 





\ 




2800 





; 

DISK 

INTERFACE ENTRY 

POINT 

2801 









2802 

EDFO 

A9 

31 


DSKIF: 

LDA 

#DISKID 


2803 

EDF2 

8D 

00 

03 


STA 

DDEVIC 

,SET SERIAL BUS I.D IN DCB 

2804 

EOF 5 

AD 

46 

02 


LDA 

DSKTIM 


2805 

EDF8 

AE 

02 

03 


LDX 

DCOMND 


2806 

EDFB 

EO 

21 



CPX 

#FQMAT 

iIS COMMAND A FORMAT COMMAND? 

2807 

EDFD 

FO 

02 



BEQ 

PUTDTO 

- -7 ■/£$ 

2808 

EDFF 

A9 

07 



LDA 

#7 

;NO* SET TIMEOUT TO 7 SECS. 

2809 

EE01 

8D 

06 

03 

PUTDTO; 

STA 

DTXMLO 

; PUT DISK TIMEOUT IN DCB 

2810 

EE04 

A2 

40 



LDX 

#GETDAT 

; SET "GET DATA" COMMAND FOR SIO 

2811 

EE 06 

AO 

80 



LDY 

#$80 

> SET BYTE COUNT TO 128 

2812 

EE08 

AD 

02 

03 


LDA 

DCOMND 

i READ COMMAND IN DCB 

2S13 

EEOB 

C9 

57 



CMP 

#WRITE 

>IS COMMAND A "PUT SECTOR" COMMAND? 

2814 

EEOD 

DO 

02 



BNE 

CKSTC 

, “ -? bio 

2815 

EEOF 

A2 

80 



LDX 

#PUTDAT 

>YES, SET "PUT DATA" COMMAND FOR SIO 

2816 

EE 1 1 

C9 

53 


CKSTC' 

CMP 

#ST ATC 

,IS COMMAND A STATUS COMMAND? 

2917 

EE 13 

DO 

OC 



BNE 

PUTCNT 

; 

2818 

EE 15 

A9 

EA 



LDA 

#STATVL 


2819 

EE 17 

8D 

04 

03 


STA 

DBUFLO 


2820 

EF1A 

A9 

02 



LDA 

#STATVH 


2821 

EE 1C 

8D 

05 

03 


STA 

DBUFHI 

> SET BUFFER ADDR TO GLOBAL STATUS BUFFER 

2822 

EE IF 

AO 

04 



LDY 

#4 

iYES, SET BYTE COUNT TO 4 

2823 

EE21 

8E 

03 

03 

PUTCNT: 

STX 

DSTATS 

iPUT STATUS COMMAND FOR SIO IN DCB 

2824 

EE24 

8C 

08 

03 


STY 

DBYTLO 


2825 

EE 27 

A9 

00 



LDA 

#0 


2826 

EE 29 

8D 

09 

03 


STA 

DBYTHI 

; PUT BYTE COUNT IN DCB 

2827 

EE2C 

20 

59 

E4 


JSR 

SIOV 

»CALL SERIAL I/O. 

2828 

EE2F 

10 

01 



BPL 

GOODST 

iNO ERROR 

2829 

EE31 

60 




RTS 


i NO, GO BACK 

2830 

EE32 

AD 

02 

03 

GOODST: 

LDA 

DCOMND 

jREAD THE COMMAND 

2831 

EE35 

C9 

53 



CMP 

#STATC 

, WAS IT A STATUS COMMAND? 

2832 

EE37 

DO 

OA 



BNE 

PUTBC 


2833 

EE39 

20 

6D 

EE 


JSR 

PUTADR 

jPUT BUFFER ADDR IN TEMP REG. 

2834 

EE3C 

AO 

02 



LDY 

#2 


2835 

EE3E 

B 1 

15 



LDA 

( BUFADR),Y 

; READ DISK TIMEOUT VALUE BYTE OF STATUS 

2836 

EE40 

8D 

46 

02 


STA 

DSKTIM 

} PUT IT IN DISK TIMEOUT REG. 

2837 

EE43 

AD 

02 

03 

PUTBC. 

LDA 

DCOMND 


2838 

EE46 

C9 

21 



CMP 

#FOMAT 

i WAS COMMAND A FORMAT COMMAND? 

2839 

EE48 

DO 

IF 



BNE 

ENDDIF 


2840 

EE4A 

20 

6D 

EE 

FMTD: 

JSR 

PUTADR 

; YES, PUT BUFFER ADDR INTO TEMP REG 

2841 

EE4D 

AO 

FE 



LDY 

#$FE 

1 SET BUFFER POINTER 

2842 

EE4F 

C8 



TWICE: 

INY 



2843 

EE 50 

C8 




INY 


>INCH BUFFER POINTER BY 2 


INCH BUFFER POINTER BY 2 


ERR LINE ADDR B1 B2 B3 B4 


DISK ***** DISKP.SRC ***** 3/9/79 ***** 4:00:00 P 


PAGE 


65 


2844 EE51 B1 15 

2845 EE53 C9 FF 

2846 EE55 DO FB 

2847 EE57 C8 

2848 EE58 B1 15 

2849 EESA C8 

2850 EE5B C9 FF 

2851 EE5D DO F2 

2852 EE5F 88 

2853 EE60 88 

2854 EE61 8C 08 03 

2855 EE64 A9 00 

2856 EE66 8D 09 03 

2857 EE69 AC 03 03 

2858 EE6C 60 

2859 

2860 
*=.'861 
286*=? 

2863 

2864 

2865 

2866 

2867 

2868 EE6D AD 04 03 

2869 EE70 85 15 

2870 EE72 AD 05 03 

2871 EE75 85 16 

2872 EE77 60 

2873 

2874 

2875 

2876 

2877 

2878 EE78 

2879 

2880 

2881 0014 00 

2882 


RDBAD: LDA (BUFADR)> Y ;READ LO BYTE BAD SECTOR DATA 

CMP #*FF 

BNE TWICE ;IS IT "FF” ? 

INY ? YES > 

LDA tBUFADR)*Y ;READ HI BYTE BAD SECTOR DATA 

I NY 

CMP #*FF 

BNE RDBAD i IS IT “FP“ ? 

DEY 

DEY ;YES* 

STY DBYTLO 3 PUT BAD SECTOR BYTE COUNT INTO DCB 

LDA #0 

STA DBYTHI 

ENDDIF: LDY DSTATS 

RTS 


SUBROUTINES 


i PUT BUFFER ADDR FROM DCB INTO TEMP REG 

PUTADR: LDA DBUFLO 

STA BUFADR 

LDA DBUFHI 

STA BUFADR+1 ;PUT BUFFER ADDR IN TEMP REG 

RTS 

j .ft############*##########-########################## 


E SPARE BYTE OR MODULE TOO LONG FLAG 

1 

CRNTP4 « * 

#=$14 

DSKSPR: -BYTE PRN0RG-CRNTP4 ; '“GDISKP TOO LONG 



ERR LINE ADDR B1 B2 B3 B4 


DISK ***** DI5KP. SRC ***** 3/9/79 ***** 4: 00: 00 P 


PAGE 


66 


. PAGE 
.TITLE 


'PRINTER ***** PRINTP.SRC ***** 3/9/79 ***** 4:00:00 


2896 


/ 

DEVICE 

NUMBER OR 

CODE EQUATES 

2897 


j 




2898 

0002 

OPNOUT 


$2 

; IOCB OPEN FOR OUTPUT COMMAND 

2899 

0028 

NBUF5Z 


40 

iPRINT NORMAL BUFFER SIZE 

2900 

0014 

DBUFSZ 

- 

20 

rPRINT DOUBLE BUFFFER SIZE 

2901 

00 ID 

SBUFSZ 

= 

29 

;PRINT SIDEWAYS BUFFER SIZE 

2902 

0040 

PDEVN 

=s 

$40 

fPRINTER DEVICE NUMBER 

2903 

0057 

WRITEC 

— 

$57 

jDCB WRITE COMMAND 

2904 

0020 

SPACE 

= 

$20 

fASCII SPACE CHAR. 

2905 

004E 

N 

~ 

$4E 

iASCII "N" CHAR. 

2906 

0044 

D 

= 

$44 

i ASCI I "D" CHAR. 

2907 

0053 

S 

= 

$53 

> ASCI I ‘'S' 1 CHAR. 

2908 


i 




2909 


J 




2910 



PRINTER 

HANDLER 

ENTRY POINTS 


2915 




*=*E430 



2916 

2917 

E430 

9E 

EE 

f * 

. WORD 

PHOPEN-i 

/PRINTER HANDLER OPEN 

2918 

E432 

DB 

EE 

. WORD 

PHCLOS—1 

iPH CLOSE 

2919 

E434 

9D 

EE 

. WORD 

BADST-1 

JPH READ 

2920 

E436 

A6 

EE 

. WORD 

PHWRIT-1 

iPH WRITE 

2921 

E438 

80 

EE 

. WORD 

PHSTAT-1 

iPH STATUS 

2922 

E43A 

9D 

EE 

. WORD 

BADST-1 

;PH SPECIAL 

2923 

E43C 

4C 

78 EE 

JMP 

PHINIT 

;PH INIT. 

2924 

E43F 

00 


. BYTE 

0 

iROM FILLER 


*=PRNQRG 


PRINTER HANDLER INITIALIZATION ROUTINE 







ERR LINE 

ADDR 

B1 

B2 

B3 B4 

PRINTER 


PRINTP. 

SRC 3/9/79 *■*■«■•*# 4: 0 

PAGE 67 

2937 

EE78 

A9 

IE 


PHINIT: 

LDA 

#30 



2938 

EE7A 

85 

1C 



ST A 

PTIMOT 

r SET UP INITIAL PRINTER TIMEOUT 

OF 30 SEC 

2939 

EE7C 

60 




RTS 




2940 





i 





2941 





; 





2942 





f 

PRINTER 

HANDLER 

CONSTANTS 


2943 





; 





2944 

EE7D 

EA 

02 


PHSTLQ: 

. WORD 

DVSTAT 

1 STATUS BUFFER POINTER 


2945 

EE7F 

CO 

03 


PHCHLO; 

. WORD 

PRN13UF 

f CHAR. BUFFER POINTER 


2946 










2947 





J 





2948 





; 





2949 





J 



2950 





j 

PRINTER 

HANDLER 

ROUTINES 


2951 





; 

###*##*# tt-a-######-a-## s-****- 


2952 





j 





2953 





i 





2954 





} 





2955 





i 





2956 





i 





2957 





i 

PRINTER 

HANDLER 

STATUS ROUTINE 


2958 





} 





2959 

EE81 

A9 

04 


PHSTAT: 

LDA 

#4 



2960 

EE83 

35 

IE 



STA 

PBUFSZ 

;SET BUFFER SIZE TO 4 BYTES 


2961 

EE85 

AE 

7D 

EE 


LDX 

PHSTLO 



2962 

EE88 

AC 

7E 

EE 


LDY 

PHSTLO+1 i SET POINTER TO STATUS BUFFER 


2963 

EE8B 

A9 

53 



LDA 

#STATC 

;SET COMMAND TO "STATUS" 


2964 

EE8D 

8D 

02 

03 


STA 

DCOMND 

iSET STATUS COMMAND 


2965 

EE90 

3D 

OA 

03 


STA 

DAUX1 



2966 

EE93 

20 

E6 

EE 


JSR 

SETDCB 

jGO SETUP DCB 


2967 

EE96 

20 

59 

E4 


JSR 

S109 

)SEND STATUS COMMAND 


2968 

EE99 

30 

03 



BMI 

BADST 

5 GO IF ERROR 


2969 

EE9B 

20 

14 

EF 


JSR 

PHPUT 

rYES,PUT STATUS INTO GLOBAL BUFFER. 

2970 

EE9E 

60 



BADST: 

RTS 




2971 





i 





2972 





i 





2973 





1 





2974 





r 





2975 





p 

PRINTER 

HANDLER 

OPEN ROUTINE 


2976 





i 





2977 

EE9F 

20 

81 

EE 

PHOPEN: 

JSR 

PHSTAT 

iDO STATUS COMMAND TO SID 


2978 

EEA2 

A9 

00 



LDA 

#0 



2979 

EEA4 

85 

ID 



STA 

PBPNT 

;CLEAR PRINT BUFFER POINTER 


2980 

EEA6 

60 




RTS 




2981 





} 





2982 





J 





2983 





i 





2984 





; 





2985 





i 

PRINTER 

HANDLER 

WRITE ROUTINE 


2986 





i 





2987 

EEA7 

85 

IF 


PHWRIT: 

STA 

PTEMP 

;SAVE ACCUM 


2988 

EEA9 

20 

1A 

EF 


JSR 

PRMODE 

iGO DETERMINE PRINT MODE 


2989 

EEAC 

A6 

ID 



LDX 

PBPNT 



2990 

EEAE 

A5 

IF 



LDA 

PTEMP 

;GET CHAR. SENT BY CIO 



ERR 


LINE ADDR B1 302 B3 B4 


PRINTER #*■*■*# PRINTP.SRC •*■*#*-* 3/9/79 *■**•*■* 4:0 


PAGE 


68 


2991 

EEBO 

9D 

CO 

03 


STA 

PRNBUFj X 

iPUT CHAR. IN PRINT BUFFER 

2992 

EEB3 

ES 




I NX 


iINCH. BUFFER POINTER 

2993 

EEB4 

E4 

IE 



CPX 

PBUFSZ 

iBUFFER P0INTER=BUFFER SIZE? 

2994 

EEB6 

FO 

13 



BEG 

BUFFUL 


2995 

EEB8 

86 

ID 



STX 

PBPNT 

;SAVE BUFFER POINTER 

2996 

EE BA 

C9 

9B 



CMP 

#CR 

i IS CHAR. = EOL. ? 

2997 

EEBC 

FO 

03 



BEG 

BLFILL 

> IF YES, GO DO BLANK FILL 

2998 

EEBE 

AO 

01 



LDY 

#SUCCES 

;PUT GOOD STATUS IN Y REG FDR CIO 

2999 

EECO 

60 




RTS 



3000 

EEC 1 

A9 

20 


BLFILL: 

LDA 

#SPACE 

iPUT BLANK IN ACCUM. 

3001 

EEC 3 

9D 

CO 

03 

FILLBF: 

STA 

PRNBUF, X 

i STORE IT IN PRINT BUFFER. 

3002 

EEC6 

E8 




INX 



3003 

EEC7 

E4 

IE 



CPX 

PBUFSZ 


3004 

EEC9 

DO 

F8 



BNE 

FILLBF 

;BUFFER BLANK FILLED? 

3005 

EECB 

A9 

00 


BUFFUL: 

LDA 

#0 


3006 

EECD 

85 

ID 



STA 

PBPNT 

;CLEAR PRINT BUFFER POINTER 

3007 

EECF 

AE 

7F 

EE 


LDX 

PHCHLD 


3008 

EED2 

AC 

80 

EE 


LDY 

PHCHLO+1 

i SET POINTER TO PRINT BUFFER 

3009 

EED5 

20 

E6 

EE 


USR 

SETDCB 

; GO SETUP DCB 

3010 

EED8 

20 

59 

E4 


USR 

SIOV 

; SEND PRINT COMMAND 

301 1 

EEDB 

60 




RTS 


J YES. 

3012 





i 




3013 





i 




3014 





i 




3015 





; 




3016 





1 

PRINTER 

HANDLER 

CLOSE ROUTINE 

3017 





i 




3018 

EEDC 

20 

1A 

EF 

PHCLOS: 

USR 

PRMDDE 

i GO DETERMINE PRINT MODE 

3019 

EEDF 

A6 

ID 



LDX 

PBPNT 


3020 

EEE1 

DO 

DE 



BNE 

BLFILL 


3021 

EEE3 

AO 

01 



LDY 

#SUCCES 


3022 

EEE5 

60 




RTS 




3023 

3024 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 


SUBROUTINES 


3037 





3 SET UP 

DCB TO CALL 

SIO 


3038 





; 




3039 

EEE6 

BE 

04 

03 

SETDCB: STX 

DBUFLO 



3040 

EEE9 

8C 

05 

03 

STY 

DBUFHI 

i SET 

BUFFER POINTER 

3041 

EEEC 

A9 

40 


LDA 

#PDEVN 



3042 

EEEE 

SD 

00 

03 

STA 

DDEVIC 

i SET 

PRINTER BUS I.D. 

3043 

EEF1 

A9 

01 


LDA 

#1 



3044 

EEF3 

8D 

01 

03 

STA 

DUN IT 

i SET 

UNIT NUMBER TO 1 



ERR LINE 

ADDR 

B1 

B2 

B3 B4 


PRINTER ***** 

PRINTP. SRC 

***** 3/9/79 ***** 4; 0 PAGE 

3045 

EEF6 

A9 

80 




LDA 


#$80 

i DEVICE WILL EXPECT DATA 

3046 

EEF8 

AE 

02 

03 



LDX 


DCOMND 


3047 

EFFB 

EO 

53 




CPX 


#STATC 

i STATUS COMMAND? 

304S 

EEFD 

DO 

02 




BNE 


PSIOC 


3049 

EEFF 

A9 

40 




LDA 


#$40 

; EXPECT DATA FROM DEVICE 

3050 

EF01 

8D 

03 

03 

PSIOC: 

STA 


DSTATS 

>SET SIO MODE COMMAND. 

3051 

EF04 

A5 

IE 




LDA 


PBUFSZ 


3052 

EF06 

8D 

08 

03 



STA 


DBYTLO 

; SET LO BYTE COUNT 

3053 

EF09 

A9 

00 




LDA 


#0 


3054 

EFOB 

8D 

09 

03 



STA 


DBYTHI 

i SET HI BYTE COUNT 

3055 

EFOE 

A5 

1C 




LDA 


PTIMDT 


3056 

EF10 

8D 

06 

03 



STA 


DTIMLO 

i SET DEVICE TIMEOUT COUNT 

3057 

EF13 

60 





RTS 




3058 











3059 











3060 











3061 











3062 







GET 

DEVICE TIMEOUT 

FROM STATUS & SAVE IT 

3063 











3064 

EF 14 

AD 

EC 

02 

PHPUT: 

LDA 


DVSTAT+2 


3065 

EF17 

85 

1C 




STA 


PTIMOT 

;SAVE DEVICE TIMEOUT 

3066 

EF 19 

60 





RTS 




3067 











3068 











3069 











3070 











3071 






DETERMINE PRINT MODE & SETUP PRINT BUFFER SIZE, DCB PRINT 

3072 






COMMAND, & 

DCB 

AUX1 FOR PRINT MODE 

3073 











3074 

EF1A 

AO 

57 


PRMODE: 

LDV 


#WRITEC 

;PUT WRITE COMMAND IN Y REG 

307,5 

EF1C 

A5 

2B 




LDA 


ICAX2Z 

iREAD PRINT MODE 

3076 

EF1E 

C9 

4E 


CMODE: 

CMP 


#N 


3077 

EF20 

DO 

04 




BNE 


CDUBL 

iPRINT NORMAL ? 

3078 

EF22 

A2 

28 




LDX 


#NBUFSZ 

; YES; SET NORMAL CHAR. BUFFER SIZE 

3079 

EF24 

DO 

OE 




BNE 


SETBSZ 


3080 

EF26 

C9 

44 


CDUBL; 

CMP 


#D 


3081 

EF28 

DO 

04 




BNE 


CSIDE 

;PRINT DOUBLE? 

3082 

EF2A 

A2 

14 




LDX 


#DBUFSZ 

i YES, SET DOUBLE CHAR. BUFFER SIZE 

3083 

EF2C 

DO 

06 




BNE 


SETBSZ 


3084 

EF2E 

C9 

53 


CSIDE: 

CMP 


#S 

;PRINT SIDEWAYS > 

3085 

EF30 

DO 

OB 




BNE 


GOERR 

i IF NOT * GO TO ERROR ROUTINE 

3086 

EF32 

A2 

ID 




LDX 


#SBUFSZ 

;YES, SET SIDEWAYS BUFFER SIZE 

3087 

EF34 

86 

IE 


SETBSZ: 

STX 


PBUFSZ 

;STORE PRINT BUFFER SIZE 

3088 

EF36 

80 

02 

03 



STY 


DCOMND 

;STORE DCB COMMAND 

3089 

EF39 

8D 

OA 

03 



STA 


DAUX1 

.* STORE DCB AUX 1 PRINT MODE 

3090 

EF3C 

60 





RTS 




3091 

EF3D 

A9 

4E 


GOERR: 

LDA 


#N 

,SET DEFAULT PRINT MODE TO NORMAL 

3092 

EF3F 

DO 

DD 




BNE 


CMODE 


3093 







3094 











3095 











3096 







SPARE BYTE OR MODULE TOO LONG FLAG 

3097 











3098 

EF41 




CRNTP5 

SS 


* 



69 





ERR LINE 

ADDR 

B1 B2 B3 B4 

PRINTER ***** 

PRINTP. SRC ***** 3/9/79 ***** 4:0 

3099 



i 


3100 



*=*14 


3101 

3102 

3103 

0014 

00 

PRNSPR: , BYTE 

i 

CAS0RG-CRNTP5 i "GPRINTP TOO LONG 


ERR LINE ADDR B1 B2 B3 B4 


PRINTER PRINTP. SRC ■**■*»* 3/9/79 *#*■**- 4:0 


PAGE 


3104 







. PAGE 


3105 







LIST 

S 

3106 







.TITLE 

7 CASSET HANDLER 3/12 <DK1: CASCV) ' 

3107 

0003 





CBUFH 

* 

CASBUF/256 

3108 

00FD 





CBUFL 

■ 

(-256)*CBUFH+CASBUF 

3109 

0040 





SRSTA 

■m 

$40 i SIO READ STATUS 

3110 

0080 





SWSTA 

= 

$80 i SIO WRITE STATUS 

3111 






) 



3112 






i 



3113 

OOFC 





DTA 

- 

$FC ;DATA RECORD TYPE BYTE 

3114 

OOFA 





DTI 

= 

$FA ;LAST DATA RECORD 

3115 

OOFE 





EOT 

= 

$FE i END OF TARE 

3116 

QQFB 





HDR 

- 

$FB iHEADER 

3117 

0002 





TONE 1 

= 

2 iCHANGE TO RECORD MODE TONE 

3118 

0001 





T0NE2 

5 = 

1 iPRESS PLAY TONE 

31 19 






i 



3120 






i 



3121 






i 



3122 







*=CASE1 

"V 

3123 

E440 

4B 

EF 

2A 

FO 


. WORD 

OPENC-1, CL.OSEC —1 ■ GBYTE-1, PBYTE-1, STATU-1 

3124 

E444 

D5 

EF 

OF 

FO 




3125 

E448 

27 

FO 

4A 

EF 




3126 

E44C 

4C 

41 

EF 



JMP 

INIT 

3127 

E44F 

00 





. BYTE 

0 iROM FILLER BYTE 

3128 






I 



3129 






1 



3130 






5 



3131 






\ USED 

IN MONITP FOR CASSETTE BOOT 

3132 






i 



3133 







*=RBLOKV 

3134 

E47A 

4C 

E9 

EF 



JMP 

RBLOK 

3135 






i 



3136 







*=CSOPIV 

3137 

E47D 

4C 

5D 

EF 



JMP 

OPINP 

3138 






■r 



3139 






J 



3140 







*=CASORG 

3141 






J 



3142 






J 



3143 






; I NIT 

ROUTINE 


3144 






J 



3145 

EF41 

A9 

CC 



INIT: 

LDA 

#$CC 

3146 

EF43 

8D 

EE 

02 



STA 

CBAUDL 

3147 

EF46 

A9 

05 




LDA 

#$05 

3148 

EF48 

8D 

EF 

02 



STA 

CBAUDH iSET CASSET BAUD RATE TO 600 

3149 

EF4B 

60 




SPECIAL 

: RTS 

sTHATS ALL FOLKS 



ERR LINE ADDR B1 B2 B3 B4 


CASSET HANDLER 3/12 <DK1:CASCV) 


PAGE 


72 


3150 






. PAGE 



3151 









3152 





i OPEN 

FUNCTION 

- WITH NO 

TIMING ADJUST 

3153 





} 




3154 

EF4C 

A5 

2B 


OPENC. 

LDA 

ICAX2Z 

JGET AX2 

3155 

EF4E 

85 

3E 



STA 

FTYPE 

;SAVE IT FOR FUTURE REFERENCE 

3156 

EF50 

A5 

2A 



LDA 

ICAX1Z 


3157 

EF52 

29 

OC 



AND 

#$oc; 

f IN AND OUT BITS 

3158 

EF54 

C9 

04 



CMP 

#$04 


3159 

EF56 

FO 

05 



BEG 

OP INF 


3160 

EF58 

C9 

08 



CMP 

#$08 

jSEE IF OPEN FOR OUTPUT 

3161 

EF5A 

FO 

39 



BEG 

OPOUT 


3162 

EF5C 

60 




RTS 


\IF ALREADY OPEN/ RETURN LEAVING STATUS«$B4 

3163 

EF5D 

A9 

00 


OP INP 

LDA 

#0 


3164 

EF5F 

SD 

89 

02 


STA 

WMODE 

;SET READ MODE 

3165 

EF62 

85 

3F 



STA 

FEOF 

* NO EOF YET 

3166 

EF64 

A9 

01 


BFH: 

LDA 

#T0NE2 

;TONE FOR PRESS PLAY 

3167 

EF66 

20 

58 

FO 


JSR 

BEEP 

iGO BEEP 

3168 

EF69 

30 

24 



BMI 

OPNRTN 

;IF ERROR DURING BEEP 

3169 

EF6B 

A9 

34 



LDA 

#MOTRGQ 


3170 

EF6D 

8D 

02 

D3 


STA 

PACTL 

iTURN MOTOR ON 

3171 

EF70 

AO 

40 



LDY 

#$40 

i5-31-7? - 9 SEC READ LEADER 

3172 

EF72 

A2 

02 



LDX 

#2 


3173 

EF74 

A 9 

03 



LDA 

#3 


3174 

EF76 

80 

2 A 

02 


STA 

CDTMF3 


3175 

EF79 

20 

5C 

E4 


JSR 

SETVBV 

/SET UP VBLANK TIMER 

3176 

EF7C 

AD 

2 A 

02 

WAITTM: 

LDA 

CDTMF3 


3177 

EF7F 

DO 

FB 



BNE 

WAITTM 

/WAIT FOR MOTOR TO COME UP TO SPEED 

3178 

EF81 

A9 

80 



LDA 

#$80 

i NEXT BYTE=NO BYTES IN BUFFER 

3179 

EF83 

85 

3D 



STA 

BPTR 


3180 

EF85 

80 

8A 

02 


STA 

RLIM 


31S1 

EF88 

4C 

03 

EF 


JMP 

OP OK 

j OPEN OK 

3182 





j 




3183 





; OPEN 

FDR OUTPUT 


3184 









31S5 

EF8B 

AO 

80 


PBRK: 

LDY 

#BRKABT 

;BREAK KEY ABORT STATUS 

3186 

EF8D 

C6 

i l 



DEC 

BRKKEY 

;RESET BREAK KEY 

31S7 

EF8F 

A9 

00 


□PNRTN: 

LDA 

#0 

i CLEAR WRITE MODE FLAG 

3188 

EF91 

3D 

89 

02 


STA 

WMODE 


3189 

EF94 

60 




RTS 


; AND EXIT. 

3190 









3191 

EF95 

A9 

80 


OPOUT: 

LDA 

#$80 


3192 

EF97 

8D 

89 

02 


STA 

WMODE 

/SET WRITE MODE 

3193 

EF9A 

A9 

02 



LDA 

#TQNE1 

i TELL USER TO TURN ON RECORD MODE 

3194 

EF9C 

20 

58 

FO 


JSR 

BEEP 


3195 

EF9F 

30 

EE 



BMI 

□PNRTN 

J IF ERROR DURING BEEP 

3196 

EFA1 

A9 

CC 



LDA 

#$CC 

*SET BAUD RATE 

3197 

EFA3 

8B 

04 

D2 


STA 

AUDF3 

/WHICH SEEMS TO BE NESSECARY 

3198 

EFA6 

A9 

05 



LDA 

#$05 

)FOR SOME OBSCURE REASON 

3199 

EFA8 

8D 

06 

D2 


STA 

AUDF4 


3200 

EFAB 

A9 

60 



LDA 

#$60 


3201 

EFAD 

SD 

00 

03 


STA 

DDEVIC 


3202 

EFBO 

20 

68 

E4 


JSR 

SENDEV 

;TELL POKEY TO WRITE MARKS 

3203 

EFB3 

A9 

34 



LDA 

ttMOTRGO 

iWRITE 5 SEC BLANK TAPE 


ERR LINE 

ADDR 

B1 

B2 

B3 B4 

3204 

EFB5 

8D 

02 

D3 

3205 

EFB8 

A9 

03 


3206 

EFBA 

A2 

04 


3207 

EFBC 

AO 

80 


3208 

EFBE 

20 

5C 

E4 

3209 

EFC1 

A9 

FF 


3210 

EFC3 

8D 

2A 

02 

3211 

EFC6 

A5 

11 


3212 

EFC8 

FO 

Cl 


3213 

EFCA 

AD 

2A 

02 

3214 

EFCD 

DO 

F7 


3215 

EFCF 

A9 

00 


3216 

EFD1 

85 

3D 


3217 

EFD3 

AO 

01 


3218 

EFD5 

60 




CASSET HANDLER 3/12 (DK 

STA PACTL 

LDA #3 

LDX #4 

LDY #$80 

JSR SETVBV 

LDA #$FF 

STA CDTMF3 

WDL.R: LDA BRKKEY 

BEG PBRK 

LDA CDTMF3 

BNE WDLR 

LDA #0 

STA BPTR 

LDY #SUCCES 

RTS 


OP OK: 


. CASCO) 


PAGE 


73 


i 5/30/79 20 SEC LEADER 

* IF BREAK DURING WRITE LEADER 

JINIT BUFFER POINTER 


ERR LINE ADDR B1 B2 B3 B4 


CASSET HANDLER 3/12 (DKlrCASCV) 


PAGE 


74 


3219 





3220 





3221 





3222 





3223 

EFD6 

A5 

3F 


3224 

EFD8 

30 

33 


3225 

EFDA 

A6 

3D 


3226 

EFDC 

EC 

8A 

02 

3227 

EFDF 

FO 

08 


3228 

EFE1 

BD 

00 

04 

3229 

EFE4 

E6 

3D 


3230 

EFE6 

AO 

01 


3231 

EFE8 

60 



3232 

EFE9 

A9 

52 


3233 

EFEB 

20 

95 

FO 

3234 

EFEE 

98 



3235 

EFEF 

30 

F7 

* 

3236 

EFF1 

A9 

00 


3237 

EFF3 

85 

3D 


3238 

EFF5 

A2 

80 


3239 

EFF7 

AD 

FF 

03 

3240 

EFFA 

C9 

FE 


3241 

EFFC 

FO 

OD 


3242 

EFFE 

C9 

FA 


3243 

FOOO 

DO 

03 


3244 

F002 

AE 

7F 

04 

3245 

F005 

8E 

8A 

02 

3246 

F008 

4C 

D6 

EF 

3247 

FOOB 

C6 

3F 


3248 

FOOD 

AO 

88 


3249 

FOOF 

60 




. PAGE 
GET BYTE 


GBYTE: 

LDA 

FEOF 


BMI 

ISEGF 


LDX 

BPTR 


CPX 

BLIN 


BEQ 

RBLDK 


LDA 

CASBUF+3/X 


INC 

DPTR 


LDY 

#5UCCES 

GBX: 

RTS 


RBLDK: 

LDA 

# 'R 


JSR 

TYA 

SIGSB 


BMI 

GBX 


LDA 

#0 


STA 

BPTR 


LDX 

#$80 


LDA 

CASBUF+2 


CMP 

#EGT 


BEQ 

ATEGF 


CMP 

#DT 1 


BNE 

NLR 


LDX 

CASBUF+130 

NLR: 

STX 

DLIM 


JMP 

GBYTE 

ATEOF: 

DEC 

FEOF 

ISEGF: 

LDY 

RTS 

#EOFERR 


iIF AT EOF ALREADY 
3 RETURN EOF STATUS 
;BUFFER POINTER 
=IF END OF BUFFER 
> READ ANOTHER BLOCK 
i GET NEXT BYTE 
i BUMP POINTER 
;OK STATUS 

iREAD OPCODE 
\SIO ON SYS BUF 

i IF SIO ERRORS/ RETURN 

;RESET POINTER 
iDEFAULT # BYTES 


; IF HEADER, GO READ AGAIN 
J IF LAST DATA REC 

;LAST DATA RECORD/ GET # BYTES 

; GET NEXT BYTE 
JSET FEOF 
i ENDFILE STATUS 


ERR LINE 

ADDR 

B 1 

B2 

B3 B4 

CASSET HANDLER 

3/12 (OKI: 

7ASCV) 

3250 





. PAGE 



3251 





$ 



3252 





1 PUT BYTE TO BUFFER 


3253 





7 



3254 

F010 

A6 

3D 


PBYTE: LDX 

BPTR 

;BUFFER POINTER 

3255 

FO12 

9D 

00 

04 

STA 

OASBUF+3,X 

;STORE CHAR AWAY 

3256 

FOl 5 

E6 

3D 


INC 

BPTR 

j BUMP POINTER 

3257 

F017 

AO 

01 


LDY 

&SUCCES 

;OK STATUS 

3258 

F019 

EG 

7F 


CPX 

#127 

i IF BUFFER FULL 

3259 

FOIB 

FO 

01 


BEG 

#+3 


3260 

F01D 

60 



RTS 



3261 





i WRITE OUT THE 

BUFFER 


3262 

FOIE 

A9 

FC 


LDA 

#DTA 

7 RECORD TYPE * DATA 

3263 

F020 

20 

D2 

FO 

JSR 

WSIOSB 

5 DO WRITE ON SYSTEM BUFFER 

3264 

F023 

A9 

00 


LDA 

#0 


3265 

F025 

85 

3D 


STA 

BPTR 

, RESET BUFFER POINTER 

3266 

F027 

60 



RTS 


^ EXIT. 


75 



ERR LINE ADDR B1 B2 B3 B4 


CASSET HANDLER 3/12 (DK1 CASCV) 


3267 

3268 

3269 

3270 

3271 F028 AO 01 

3272 F02A 60 


. PAGE 

t 

; STATUS - RETURN STATUS INFO THRU DVSTAT 

i 

STATU: LDY #SUCCES 

RTS 


PAGE 


76 


LINE 

ADDR 

B1 

B2 

B3 B4 

GASSET 

HANDLER 

3/12 (DK1:< 

CASCV ) PAGE 77 

3273 






. PAGE 



3274 





1 




3275 





i CLOSE 




3276 





i 




3277 

F02B 

AD 

89 

02 

CLOSED : 

LDA 

WMGDE 

;SEE IF WRITING 

3278 

F02E 

30 

08 



EMI 

CLWRT 

; GO CLOSE FOR WRITE 

3279 





iCLOSE 1 

FOR READ 

- FLAG CLOSED 

3280 

F030 

AO 

01 



LDY 

#SUCCES 

;SUCCESSFULL 

3281 

F032 

A9 

3C 


FC AX : 

LDA 

ttMQTRST 

;STOP THE MOTOR IN CASE WAS SHORT IRQ MODE 

3282 

F034 

8D 

02 

D3 


STA 

PACTL 


3283 

F037 

60 




RTS 



3284 

F038 

A6 

3D 


CLWRT: 

LDX 

BPTR 

;BUFFER POINTER 

3285 

F03A 

FO 

OA 



BEQ 

WTLR 

> IF NO DATA BYTES IN BUFFER. NO DTI REC 

3286 

F03C 

8E 

7F 

04 


STX 

CASBUF+130 

iWRITE TO LAST RECORD 

3287 

F03F 

A9 

FA 



LDA 

#DT1 

sREC TYRE 

3288 

F041 

20 

D2 

FO 


JSR 

WSIDSB 

;WRITE OUT USER BUFFER 

3289 

F044 

30 

EC 



BMI 

FCAX 

3 GO IF ERROR 

3290 

F046 

A2 

7F 


WTLR: 

LDX 

#127 

iZERO BUFFER 

3291 

F048 

A9 

00 



LDA 

#0 


3292 

F04A 

9D 

00 

04 

ZTBUF: 

STA 

CASBUF+3.X 


3293 

F04D 

CA 




DEX 



3294 

F04E 

10 

FA 



BPL 

ZTBUF 


3295 

F050 

A9 

FE 



LDA 

#EOT 

> WRITE EOT RECORD 

3296 

F052 

20 

D2 

FO 


JSR 

WSIOSB 


3297 

F055 

4C 

32 

FO 


JMP 

FCAX 

;FLAG CLOSED AND EXIT 


ERR LINE 

ADDR 

Bi 

B2 

B3 B4 

CASSET 

HANDLER 

3/12 (DK1- 

CASCV) 

3298 






PAGE 



3299 









3300 





; SUBROUTINES 



3301 









3302 





; BEEP * 

- GENERATE TONE ON 

KEYBOARD SPEAKER 

3303 





; ON ENTRY A= FREQ 


3304 









3305 

P‘058 

85 

40 

BEEP: 

STA 

FREQ 


3306 

F05A 

A5 

14 

BEEP1: 

LDA 

RTCLOK+2 

;CURRENT CLOCK 

3307 

F05C 

18 




CLC 



3308 

F05D 

69 

IE 



ADC 

#30 

i1 SEC TONE 

3309 

F05F 

AA 




TAX 



3310 

F060 

A9 

FF 

WFL: 

LDA 

#$FF 


331 1 

F062 

8D 

IF 

DO 


STA 

CONSOL 

iTURN ON SPEAKER 

3312 

F065 

A9 

00 



LDA 

#0 


3313 

F067 

AO 

FO 



LDY 

#$F0 


3314 

F069 

88 




DEY 



3315 

F06A 

DO 

FD 



BNE 

*-l 


3316 

F06C 

80 

IF 

DO 


STA 

CONSOL 

;TURN OFF SPEAKER 

3317 

F06F 

AO 

FO 



LDY 

#$F0 


3318 

F071 

88 




DEY 



3319 

F072 

DO 

FD 



BNE 



3320 

F074 

E4 

14 



CPX 

RTCLOK+2 

i SEE IF 1 SEC IS UP YET 

3321 

F076 

DO 

E8 



BNE 

WFL 


3322 

F078 

C6 

40 



DEC 

FREQ 

iCOUNT BEEPS 

3323 

F07A 

FO 

OB 



BEQ 

WFAK 

;IF ALL DONE GO WAIT FOR KEY 

3324 

F07C 

8A 




TXA 



3325 

F07D 

18 




CLC 



3326 

F07E 

69 

OA 



ADC 

#10 


3327 

F080 

AA 




TAX 



3328 

F081 

E4 

14 



CPX 

RTCLOK+2 


3329 

F083 . 

DO 

FC 



BNE 

*-2 


3330 

F085 " 

FO 

D3 



BEQ 

BEEPi 

iUNCOND GO BEEP AGIN 

3331 

F087 

20 

8C 

FO ! 

WFAK: 

JSR 

WFAK1 

;USE SIMULATED "JMP (KGETCH) 

3332 

F08A 

98 




TYA 



3333 

F08B 

60 




RTS 



3334 

F08C 

AD 

25 

E4 ! 

WFAKi: 

LDA 

KEYBDV+5 


3335 

F08F 

48 




PHA 



3336 

F090 

AD 

24 

E4 


LDA 

KEYBDV+4 

J SIMULATE "JMP (KGETCH)** 

3337 

F093 

48 




PHA 



3338 

F094 

60 




RTS 



3339 





9 




3340 





; SIOSB 

- CALL 

SIO ON SYSTEM BUFFER 

3341 









3342 

F095 

8D 

02 

03 

SIOSB: 

STA 

DCOMND 

/ SAVE COMMAND 

3343 

F098 

A9 

00 



LDA 

#0 


3344 

F09A 

8D 

09 

03 


STA 

DBYTHI 

,SET BUFFER LENGTH 

3345 

F09D 

A9 

83 



LDA 

#131 


3346 

F09F 

8D 

08 

03 


STA 

DBYTLO 


3347 

F0A2 

A9 

03 



LDA 

#CBUFH 


3348 

F0A4 

8D 

05 

03 


STA 

DBUFHI 

i SfeT BUFFER ADDRESS 

3349 

F0A7 

A9 

FD 



LDA 

#CBUFL 


3350 

F0A9 

8D 

04 

03 


STA 

DBUFLO 


3351 

FOAC 

A9 

60 


CS10: 

LDA 

#$60 

>CASSET PSEUDO DEVICE 


PAGE 


78 


PAGE 


ERR LINE 

ADDR 

B1 

B2 

B3 B4 

CASSET 

HANDLER 

3/12 (DKi: 

CA5CV) 

3352 

FOAE 

8D 

00 

03 


STA 

DDEVIC 


3353 

FOB 1 

A9 

00 



LDA 

#0 


3354 

FOB 3 

8D 

01 

03 


STA 

DUN IT 


3355 

F0B6 

A9 

23 



LDA 

#35 

;DEVICE TIMEOUT (5/30/79) 

3356 

FOBS 

8D 

06 

03 


BTA 

DTIMLO 


3357 

FOBB 

AD 

02 

03 


LDA 

DCOMND 

GET COMMAND BACK 

3358 

FOBE 

AO 

40 



LDY. 

#SR8TA 

,510 READ STATUS COMMAND 

3359 

FOCO 

C9 

52 



CMP 

# / R 


3360 

F0C2 

FO 

02 



BEG 

*-4~4 


3361 

F0C4 

AO 

80 



LDY 

#SWSTA 

, SIQ WRITE STATUS COMMAND 

3362 

F0C6 

8C 

03 

03 


STY 

DSTATS 

,SET STATUS FOR SIO 

3363 

F0C9 

A5 

3E 



LDA 

FTYPE 


3364 

FOCB 

8D 

OB 

03 


STA 

DAUX2 

iINDICATE IF SHORT IRQ MODE 

3365 

FOCE 

20 

59 

E4 


JSR 

siov 

;GO CALL SIO 

3366 

F0D1 

60 




RTS 



3367 









3368 





, WSIOSB - WRITE BIO SYSTEM BUFFER 

3369 





, 




3370 

F0D2 

8D 

FF 

03 

WSIOSB: 

STA 

CASBUF+2 

, STORE. TYPE BYTE 

3371 

F0D5 

A9 

55 



LDA 

#$55 


3372 

F0D7 

8D 

FD 

03 


STA 

CASBUF+O 


3373 

FODA 

8D 

FE 

03 


STA 

CASBUF+1 


3374 

FODD 

A9 

57 



LDA 

#'W 

; WRITE 

3375 

FODF 

20 

95 

FO 


USR 

SI0SB 

>CALL SIO ON SYSTEM BUFFER 

3376 

F0E2 

60 




RTS 

AND 

jRETURN 

3377 

F0E3 




CRNTP6 




3378 






*=$14 



3379 

0014 

00 



GASSPR: 

. BYTE 

M0N0RG-CRNTP6 ; '‘‘'GCASCV IS TOO LONG 




ERR LINE ADDR El B2 B3 B4 


CASSET HANDLER 3/.12 <DK1;CASCV> 


PAGE 


80 


3380 

3381 

3382 

3383 

3384 

3385 

3386 


3400 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

3421 

3422 

3423 

3424 

3425 

3426 

3427 

3428 

3429 

3430 

3431 

3432 

3433 


BFFA 

BFFC 

EFFD 

BFFE 


.TITLE 'MONITOR ***** MON I TP. SRC ***** 3/9/79 ***** 4:00:0 


CONSTANT EQUATES 


3387 

0009 

PUTTXT 

- 

$9 

“PUT TEXT RECORD" CIO COMMAND CODE 

3388 

0007 

GETCAR 

=« 

$7 

"GET CHARACTER" CIO COMMAND CODE 

3389 

OOOB 

PUTCAR 

« 

$B 

"PUT CHARACTER” CIO COMMAND CODE 

3390 

0000 

INIMLL 

- 

$00 

INITIAL MEM LO LOW BYTE 

3391 

0007 

INIMLH 

= 

$07 

INITIAL MEM LO HIGH BYTE 

3392 

0000 

SF.X 


$0 

SCREEN EDITOR IOCS INDEX 

3393 

007D 

CLS 

- 

$7D 

CLEAR SCREEN CODE 

3394 

0092 

CTRLC 

as. 

$92 

KEYBOARD CODE FOR 'CONTROL C' 

3395 

0088 

EOF 

= 

$88 

CASSETTE END OF FILE CODE 

3396 

0000 

LIRG 

S= 

$0 

LONG IRG TYPE CODE 

3397 

3398 

0004 

i 

BUFFH 


<CASBUF+3>/256 

3399 

0000 

BUFFL 

- 

<-256>*BUFFH+CASBUF+3 >BUFFER POINTER 


j THE FOLLOWING EQUATES ARE IN THE CARTRIDGE ADDRESS SPACE. 


H B M CARTRIDGE ADDR'S ARE 8000-9FFF (36K CONFIG. ONLY) 
"A" CART. ADDR'5 ARE AOOO-BFFF (36K CONFIG. ONLY) 

’*A ,! CART. ADDR'B ARE BOOO-BFFF (48K CONFIG. ONLY) 


CARTCS: 

CART: 

CAftTFG: 

CARTAD: 


*—$BFFA 
. RES 2 

RES 1 

. RES 3 

. RES 2 


>CARTRIDGE COLD START ADDRESS. 
CARTRIDGE AVAILABLE FLAG BYTE. 
CARTRIDGE FLAG BYTE. BIT 0=FLAG1* 
2-BYTE CARTRIDGE START VECTOR 


CARTRIDGE FLAG ACTION DEFINITIONS 


BIT 

7 

6-3 

2 

1 

0 


***** 

NOTE 

***** 


ACTION IF SET 

SPECIAL -- DON'T POWER-UP, JUST RUN CARTRIDGE 
NONE 

RUN CARTRIDGE 
NONE 

BOOT DOS 




LINE 

ADDR 

B1 

B2 

B3 B4 

MONITOR ***** MONITP. SRC ***** 3/9/79 ***** 4 PAGE 81 

3434 





i 1.IF BIT2 IS 0, GOTO BLACKBOARD MODE. 

3435 





i 2. IF BITO SET, THE DISK WILL BE BOOTED BEFORE ANY 

3436 





? OTHER ACTION. 

3437 






3438 






3439 






3440 






3441 





i 

3442 





; 

3443 





> 

3444 





# 

3445 





i 

3446 





i POWER-UP VECTOR 

3447 





) 

3448 





;**************************** 

3449 





; * = $FFFC 

3450 





} 

3451 





i PVECT . WORD PWRUP i POWER-UP VECTOR 

3452 





; *********■#■■#■■#■■#■■#■■#■■#■*■*■#■■#■■#■*■**■* 

3453 





i 

3454 





i 

3455 





j 

3456 





f 

3457 





J 

3458 





i ENTRY POINT VECTOR 

3459 





i 

3460 





*=BLKBDV 

3461 





; 

3462 

E471 

4C 

23 

F2 

JMP SIGNON jBLACK BOARD VECTOR 

3463 





I 

3464 





*—WARMSV 

3465 





j 

3466 

E474 

4C 

IB 

FI 

JMP RESET iWARM START VECTOR 

3467 





r 

3468 





*=COLDSV 

3469 





J 

3470 

E477 

4C 

25 

FI 

JMP PWRUP :• COLD START VECTOR <9000 FOR RAM VECTOR WRIT 

3471 





f 

3472 





*=$9000 

3473 

9000 

20 

OC 

90 

JSR $900C 

3474 

9003 

4C 

25 

FI 

JMP PWRUP )(TO HANDLE RAM VECTOR WRITING) 

3475 

9006 

20 

OC 

90 

JSR $900C 

3476 

9009 

4C 

IB 

FI 

JMP RESET 

3477 





; 

3478 





i 

3479 





3 

3480 





*=MONOR£ 

3481 





i 

3482 





i 

3483 





i 

3484 





i 

3485 





i HANDLER TABLE ENTRIES 

3486 





j 

3487 

F0E3 

50 



TBLENT: .BYTE 'P ' 




ERR LINE ADDR B1 


B2 B3 B4 


MONITOR ***** MONITP. SRC ***** 3/9/79 ***** 4 


PAGE 


8 . 


3488 

F0E4 

30 

E4 




. WORD 

PR INTV 

3489 

F0E6 

43 





. BYTE 

'C ' 

3490 

F0E7 

40 

E4 




. WORD 

CASE! TV 

3491 

F0E9 

45 





. BYTE 

'E ' 

3492 

FOEA 

00 

E4 




. WORD 

EDITRV 

3493 

FOEC 

53 





. BYTE 

'S' 

3494 

FOED 

10 

E4 




. WORD 

SCRENV 

3495 

FOEF 

4B 





. BYTE 

'K' 

3496 

FOFO 

20 

E4 




. WORD 

KEYBDV 

3497 






i 



3498 






; 



3499 






j TBLLEN 

= 

IDENT—TBLENT—1 HANDLER TABLE LENGTH. "MOVED TO LJ 

3500 






i 



3501 






i 

***** 

PRINT MESSAGES ***** 

3502 






i 



3503 






J 



3504 

F0F2 

7D 

41 

54 

41 

IDENT: 

. BYTE 

CLSj 'ATARI COMPUTER - MEMO PAD SCR 

3505 

F0F6 

52 

49 

20 

43 




3506 

FOFA 

4F 

4D 

50 

55 




3507 

FOFE 

54 

45 

52 

20 




3508 

FI 02 

2D 

20 

4D 

45 




3509 

FI 06 

4D 

4F 

20 

50 




3510 

F10A 

41 

44 

9B 





3511 






i 



3512 

00 FO 





IDENTH 

=5 

IDENT/256 

3513 

00F2 





IDENTL 

S= 

<“256)*1DENTH+IDENT ; SYSTEM I. D. MSG POINTER 

3514 






J 



3515 

OOOE 





TBLLEN 

= 

IDENT-TBLENT-1 i HANDLER TABLE LENGTH 

3516 

F10D 

42 

4F 

4F 

54 

DERR5: 

. BYTE 

'BOOT ERROR C CR 

3517 

Fill 

20 

45 

52 

52 




3518 

FI 15 

4F 

52 

9B 





3519 






; 



3520 

00F1 





DERRH 

~ 

DERR5/256 

3521 

OOOD 





DERRL 

as 

( ”256)*DERRH+DERR5 iDISK ERROR MSG POINTER 

3522 






i 



3523 






i 



3524 






J 



3525 






i 



3526 






J 

DEVICE/FILENAME SPECIFICATIONS 

3527 






J 



3528 

FI 18 

45 

3 A 

9B 


OPNEDT: 

. BYTE 

'E‘ '. CR . "OPEN SCREEN EDITOR" DEVICE SPEC. 

3529 






i 



3530 

00F1 





OPNH 


OPNEDT/256 

3531 

0018 





OPNL 

=<-256>*0PNH+0PNEDT ; SCREEN EDITOR OPEN POINTER 

3532 

F11B 








3533 






s 



3534 









3535 






* 



3536 









3537 






. ***************************************************************** 

3538 






J 

RESET 

BUTTON ROUTINE STARTS HERE 

3539 






i ***************************************************************** 

3540 









3541 

FI IB 

78 




RESET. 

SEI 

jDISABLE IRQ INTERRUPTS 






ERR LINE 

ADDR 

B1 

B2 

B3 B4 

MONITOR ***** 

MONITP.SRC 

»*•*** 3/9/79 ***** A PAGE 

3542 

F11C 

AD 

44 

02 


LDA 

COLDST 

;WERE WE IN MIDDLE OF COLDSTART? 

3543 

FI IF 

DO 

04 



BNE 

PWRUP 

i YES, GO TRY IT AGAIN 

3544 

F121 

A9 

FF 



LDA 

#$FF 


3545 

F123 

DO 

03 



BNE 

PWRUP1 

i SET WARM START FLAG 

3546 





j 




3547 









3548 









3549 





i*************************************************************** 

3550 





J 

POWER UP ROUTINES START HERE 

3551 





j *************************************************************** 

3552 









3553 

F125 

78 



PWRUP: 

SEI 


jDISABLE IRQ INTERRUPTS 

3554 

F126 

A9 

00 



LDA 

#0 

;CLEAR WARMSTART FLAG 

3555 

FI 28 

85 

08 


PWRUP1: 

STA 

WARMST 


3556 

F12A 

D8 




CLD 


fCLEAR DECIMAL FLAG. 

3557 

F12B 

A2 

FF 



LDX 

#$FF 


3553 

F12D 

9A 




TXS 


jSET STACK POINTER 

3559 

F12E 

20 

3F 

F2 


JSR 

SPECL 

,CARTRIDGE SPECIAL CASE? 

3560 

FI 31 

20 

81 

F2 


JSR 

HARDI 

i DO HARDWARE INITIALIZATION 

3561 

FI 34 

A5 

08 



LDA 

WARMST 

,IS IT WARMSTART? 

3562 

F136 

DO 

28 



BNE 

ZGSRAM 

;YES, ONLY ZERO QS RAM 

3563 









3564 

F133 

A9 

00 


ZERQRM: 

LDA 

#0 


3565 

F13A 

AO 

08 



LDY 

#WARMST 


3566 

F13C 

85 

04 



STA 

RAMLQ 


3567 

F13E 

85 

05 



STA 

RAMLO+1 

r INITIALIZE RAM POINTER 

3568 

F140 

91 

04 


CLRRAM: 

STA 

(RAML.O), Y 

;CLEAR MEMORY LQC. 

3569 

FI 42 

CS 




INY 



3570 

FI 43 

CO 

00 



CPY 

#0 

> AT END OF PAGE? 

3571 

F145 

DO 

F9 



BNE 

CLRRAM 


3572 

F1 47 

E6 

05 



INC 

RAMLO+1 

; YES, INCR PAGE POINTER 

3573 

F149 

A6 

05 



LDX 

RAMLO+1 


3574 

F14B 

E4 

06 



CPX 

TRAMSZ 

,AT END OF MEM? 

3575 

F14D 

DO 

FI 



BNE 

CLRRAM 

i NO. 

3576 





> 




3577 





i INITIALIZE DOSVEC TO POINT 

TO SIGNON (BLACKBOARD) 

3578 

F14F 

AD 

72 

E4 


LDA 

BLKBDV+1 


3579 

FI 52 

85 

OA 



STA 

DOSVEC 

iUSE BLACKBOARD VECTOR 

3580 

FI 54 

AD 

73 

E4 


LDA 

BLKBDV+2 

;FOR DOSVEC 

3581 

FI 57 

85 

OB 



STA 

DOSVEC+1 


3582 

FI 59 

A9 

FF 



LDA 

#$FF 


3583 

F15B 

8D 

44 

02 


STA 

COLDST 

; SET TO SHOW IN MIDDLE OF COLDSTART 

3584 

F15E 

DO 

13 



BNE 

ESTSCM 

r GO AROUND ZOSRAM 

3585 





j 




3586 





, CLEAR 

OS RAM 

(FOR WARMSTART) 

3587 

F160 

A2 

00 


ZGSRAM: 

LDX 

m 


3588 

FI 62 

8A 




TXA 



3589 

F 163 

90 

00 

02 

Z0SRM2: 

STA 

$200,X 

;CLEAR PAGES 2 AND 3 

3590 

F 166 

9D 

00 

03 


STA 

$300, X 


3591 

F169 

CA 




DEX 



3592 

F16A 

DO 

F7 



BNE 

Z0SRM2 


3593 

F16C 

A2 

10 



LDX 

#INTZBS 


3594 

F16E 

95 

00 


Z0SRM3: 

STA 

0, X 

iCLEAR ZERO PAGE LOCATIONS INTZBS-7F 

3595 

F170 

E3 




INX 




83 


HRR LINE ADDR B1 B2 B3 B4 


MONITOR ***** MONITP. SRC ***** 3/9/79 ***** 4 


PAGE 


34 


3596 

F171 

10 

FB 



BPL 

Z0SRM3 


3597 









3598 





. ESTABLISH S 

CREEN MARGINS 


3599 

FI 73 

A9 

02 


ESTSCM: 

LOA 

ttLEOGE 


3600 

F175 

85 

52 



STA 

LMARGN 


3601 

FI 77 

A9 

27 



LOA 

#REOGE 


3602 

FI 79 

85 

53 



STA 

RMARGN 


3603 





1 




3604 





s 




3605 





> MOVE 

VECTOR 

TABLE FROM ROM 

TO RAM 

3606 

F17B 

A2 

25 


OPSYS: 

LDX 

#*25 


3607 

F170 

BD 

80 

E4 

MOWEC. 

LDA 

VCTABL, X 

i ROM TABLE 

3608 

FI 80 

90 

00 

02 


STA 

INTABS, X 

i TO RAM 

3609 

FI 83 

CA 




OEX 



3610 

F184 

10 

F7 



BPL 

MOWEC 


3611 

FI 86 

20 

94 

F2 


JSR 

OSRAM 

i DO 0. S. RAM SETUP 

3612 

F189 

58 




CLI 


i ENABLE IRQ INTERRUPTS 

3613 









3614 









3615 






LINK 

HANDLERS 


3616 









3617 

F18A 

A2 

OE 



LDX 

#TBLLEN 


3618 

FISC 

BO 

E3 

FO 

NXTENT: 

LDA 

TBLENT, X 

; READ HANDLER TABLE ENTRY 

3619 

F18F 

90 

1A 

03 


STA 

HATABSpX 

i PUT IN TABLE 

3620 

FI 92 

CA 




OEX 



3621 

FI 93 

10 

F7 



BPL 

NXTENT 

i DONE UJITH ALL ENTRIES? 

3622 





i 




3623 









3624 





i 




3625 









3626 









3627 






INTERROGATE CARTRIDGE ADDR. SPACE TO SEE WHICH CARTRIDGES 

3628 





} 




3629 

F195 

A2 

00 



LDX 

#0 


3630 

FI 97 

86 

07 



STX 

1 STOAT 

i CLEAR ''B 1 ' CART. FLAG 

3631 

F199 

86 

06 



STX 

TRAMSZ 

* CLEAR "A“ CART. FLAG 

3632 

F19B 

AE 

E4 

02 


LDX 

RAMSIZ 


3633 

F19E 

EO 

90 



CPX 

#*90 

t RAM IN 11 B li CART. SLOT? 

3634 

FI AO 

BO 

OA 



BCS 

ENDBCK 


3635 

F1A2 

AO 

FC 

9F 


LOA 

CART—*2000 

5 NO, 

3636 

F1A5 

DO 

05 



BNE 

ENDBCK 

; CART. PLUGGED INTO "B M SLOT? 

3637 

F1A7 

E6 

07 



INC 

TSTDAT 

f YES, SET n B" CART. FLAG 

3638 

F1A9 

20 

3C 

F2 


JSR 

CBINI 

, INITIALIZE CARTRIDGE "B n 

3639 





} 




3640 

F 1 AC 

AE 

E4 

02 

ENDBCK: 

LDX 

RAMSIZ 


3641 

FI AF 

EO 

BO 



CPX 

#*B0 

; RAM IN “A” CART. SLOT? 

3642 

FIB 1 

BO 

OA 



BCS 

ENDACK 


3643 

F1B3 

AE 

FC 

BF 


LDX 

CART 

i NO, 

3644 

F1B6 

00 

05 



BNE 

ENDACK 

\ CART. PLUGGED INTO "A” SLOT? 

3645 

FIBS 

E6 

06 



INC 

TRAMSZ 

}YES, SET "A" CART. FLAG 

3646 

F1BA 

20 

39 

F2 


JSR 

CAINI 

>INITIALIZE CARTRIDGE "A" 

3647 





j 




3648 





r 




3649 





p 

OPEN 

SCREEN EDITOR 




LINE 

ADDR 

B1 

B2 

B3 B4 

MONITOR 

***** 

NONI TP. SRC 

3/9/79 *■«•«■** 4 PAGE 85 

3650 

3651 

F1BD 

A9 

03 


J 

ENDACK: 

LDA 

#3 


3652 

F1BF 

A2 

00 



LDX 

#SEX 


3653 

FI C1 

9D 

42 

03 


STA 

ICCQM,X 

OPEN I/O COMMAND 

3654 

F1C4 

A9 

18 



LDA 

#OPNL 


3655 

F1C6 

9D 

44 

03 


STA 

ICBAL, X 


3656 

F1C9 

A9 

Fi 



LDA 

ttOFNH 


3657 

F1CB 

9D 

45 

03 


STA 

ICBAH; X 

SET BUFFER POINTER TO OPEN SCREEN EDITOR 

3658 

F ICE 

A9 

OC 



LDA 

#$C 


3659 

FIDO 

9D 

4A 

03 


STA 

ICAX1.X -SET UP OPEN FOR XNPUT/OUTPUT 

3660 

3661 # 

F1D3 

20 

56 

E4 


JSR 

CIOV 

GO TO CIO 

3662 

F1D6 

10 

03 



BPL 

SCRNOK i BR IF NO ERROR 

3663 

F1D8 

4C 

25 

FI 


JMP 

PWRUP 

RETRY PWRUP IF ERROR (SHOULD NEVER HAPPEN!) 

3664 

F1DB 

E8 



SCRNOK: 

INX 


SCREEN OK, SO WAIT FOR VBLANK TO 

3665 

F1DC 

DO 

FD 



BNE 

SCRNOK 

BRING UP THE DISPLAY 

3666 

FIDE 

C8 




I NY 



3667 

3668 

3669 

FIDF 

10 

FA 


p 

BPL 

SCRNOK 


3670 





i DG CASSETTE BOOT 


3671 

3672 

F1E1 

20 

B2 

F3 


JSR 

CSBOOT 

CHECK, BOOT, AND INIT 

3673 





i CHECK 

TO SEE 

IF EITHER CARTRIDGE WANTS DISK BOOT 

3674 

F1E4 

A5 

06 



LDA 

TRAMSZ 

CHECK BOTH CARTRIDGES 

3675 

F1E6 

05 

07 



ORA 

TSTDAT 


3676 

F1E8 

FO 

12 



BEG 

NGCART 

NEITHER CARTRIDGE LIVES 

3677 

F1EA 

A5 

06 



LDA 

TRAMSZ 

11 A" CART- 

3678 

FI EC 

FO 

03 



BEG 

NOAi 

NO 

3679 

F1EE 

AD 

FD 

BF 


LDA 

CARTFG 

GET CARTRIDGE NODE FLAG 

3680 

F1F1 

A6 

07 


N0A1: 

LDX 

TSTDAT 

"B" CART? 

3681 

F1F3 

FO 

03 



BEG 

NOB 1 

NO 

3682 

F1F5 

OD 

FD 

9F 


ORA 

CARTFG-$2000 

ADD OTHER FLAG 

3683 

F1F8 

29 

01 


NOB 1 

AND 

#1 

DOES EITHER CART WANT BOOT? 

3684 

3685 

FIFA 

FO 

03 


i 

BEG 

NOBOOT 

NO 

3686 





, DO DISK BOOT 



3687 

3688 

FI FC 

20 

CF 

F2 

NGCART; 

J 

JSR 

BOOT 

CHECK, BOOT, AND INIT 

3689 





; GO TO 

ONE OF 

THE CARTRIDGES IF THEY SO DESIRE 

3690 

F1FF 

A9 

00 


NOBOOT: 

LDA 

#0 


3691 

F201 

8D 

44 

02 


STA 

CQLBST 

RESET TO SHOW DONE WITH COLDSTART 

3692 

F204 

A5 

06 



LDA 

TRANSZ 

"A 11 CART? 

3693 

F206 

FO 

OA 



BEG 

N0A2 

NO 

3694 

F208 

AD 

FD 

BF 


LDA 

CARTFG 

GET CARTRIDGE NODE FLAG 

3695 

F20B 

29 

04 



AND 

#4 

DOES IT WANT TO RUN? 

3696 

F20D 

FO 

03 



BEG 

N0A2 

NO 

3697 

F20F 

6C 

FA 

BF 


JMP 

(CARTCS) 

RUN "A" CARTRIDGE 

3698 

F212 

A5 

07 


N0A2; 

LDA 

TSTDAT 

"B" CART? 

3699 

F214 

FO 

OA 



BEG 

N0CAR2 

NO 

3700 

F216 

AD 

FD 

9F 


LDA 

CARTFG—$2000 

GET ”B" NODE FLAG 

3701 

F219 

29 

04 



AND 

#4 

DOES IT WANT TO RUN? 

3702 

F21B 

FO 

DF 



BEG 

NGCART 

NO 

3703 

F21D 

6C 

FA 

9F 


JMP 

<CARTCS-$20C>0) ; RUN “B" CARTRIDGE 




ERR LINE ADDR B1 B2 B3 B4 


MONITOR ***** MON I TP. SRC ***** 3 / 9/79 ***** 


F220 6C OA 00 


i NO CARTRIDGES, OR NEITHER WANTS TO RUN, 
i SO GO TO DOSVEC (DOS, CASSETTE, OR BLACKBOARD) 
N0CAR2: UMP (DOSVEC) 


F223 A2 F2 
F225 AO FO 
F227 20 85 F3 


i PRINT SIGN-ON MESSAGE 

SIGNON: LDX #IDENTL 

LDY #IDENTH 

USR PUTLIN 


!GO PUT SIGN-ON MSG ON SCREEN 


BLACKBOARD ROUTINE 


3717 

F22A 

20 

30 

F2 

BLACKB 

: USR 

BLKB2 

i"USR EGETCH" 

3718 

F22D 

4C 

2A 

F2 


UMP 

BLACKB 

iFOREVER 

3719 

F230 

AD 

05 

E4 

BLKB2: 

LDA 

EDITRV+5 

•HIGH BYTE 

3720 

F233 

43 




PHA 



3721 

F234 

AD 

04 

E4 


LDA 

EDITRV+4 

3 LOW BYTE 

3722 

F237 

48 




PHA 



3723 

F238 

60 




RTS 


i SIMULATES "UMP 

3724 





,* 




3725 





; 




3726 





3 CART 

RIDGE 

INITIALIZATION 

INDIRECT UUMPS 

3727 

F239 

6C 

FE 

BF 

CAINI : 

UMP 

(CARTAD) 


3728 

F23C 

6C 

FE 

9F 

CBINI■ 

UMP 

<CARTAD-$2 

000) 


£RR LINE ADDR B1 B2 B3 B4 


MONITOR ***** MQNITP. SRC ***** 3/9/79 ***** 4 


PAGE 


3729 

3730 

3731 

3732 

3733 

3734 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3748 

3749 

3750 

3751 

3752 

3753 

3754 

3755 

3756 

3757 


. PAGE 


SUBROUTINES 


CHECK FOR HOW MUCH RAM & SPECIAL. CARTRIDGE CASE. 

IF SPECIAL CARTRIDGE CASE, DON'T GO BACK — GO TO CART. 


3758 

F23F 

AD 

FC 

BF 

SPECL: 

LDA 

CART 

iCHECK FOR RAM OR CART 

3759 

F242 

DO 

12 



BNE 

ENSPEC 

i GO IF NOTHING OR MAYBE 

3760 

F244 

EE 

FC 

BF 


INC 

CART 

;NOW DO RAM CHECK 

3761 

F247 

AD 

FC 

BF 


LDA 

CART 

iIS IT ROM? 

3762 

F24A 

DO 

OA 



BNE 

ENSPEC 

J NO 

3763 

F24C 

AD 

FD 

BF 


LDA 

CARTFG 

; YES, 

3764 

F24F 

29 

80 



AND 

#$80 

iMASK OFF SPECIAL BIT 

3765 

F251 

FO 

03 



BEQ 

ENSPEC 

iBIT SET? 

3766 

F253 

6C 

FE 

BF 


JMP 

(CARTAD) 

i YES, GO RUN CARTRIDGE 

3767 





J 




3768 





i 

CHECK 

FOR AMOUNT OF 

RAM 

3769 





i 




3770 





} 




3771 

F256 

CE 

FC 

BF 

ENSPEC: 

DEC 

CART 

i RESTORE RAM IF NEEDED 

3772 

F259 

A9 

00 



LDA 

#0 


3773 

F25B 

85 

05 



STA 

RAML0+1 


3774 

F25D 

A9 

10 



LDA 

#$10 


3775 

F25F 

85 

06 



STA 

TRAMSZ 

;SET RAM POINTER TO 4K, 

3776 

F261 

AO 

GO 



LDY 

#0 


3777 

F263 

B1 

05 


HQWMCH: 

LDA 

(RAMLO+1),Y 

iREAD RAM LOCATION 

3778 

F265 

85 

07 



STA 

TSTDAT 

;SAVE DATA 

3779 

F267 

49 

FF 



EOR 

#$FF 

iINVERT IT. 

3780 

F269 

85 

04 



STA 

RAMLO 

.SAVE INVERTED DATA 

3781 

F26B 

91 

05 



STA 

(RAMLO+1),Y 

;WRITE INVERTED DATA. 

3782 

F26D 

B 1 

05 



LDA 

C RAMLO+1 )i Y 

,READ RAM AGAIN 






ERR LINE 

ADDR 

B 1 

B2 

B3 B4 

MONITOR 

; ***** MONITP. SRC 

***** 3/9/79 ***** 4 

3783 

F26F 

C5 

04 



CMP 

RAMLO i 

IS IT THE INVERTED DATA? 

3784 

F271 

DO 

OD 



BNE 

ENDRAM 


3785 

F273 

A5 

07 



LDA 

TSTDAT f 

YES, 

3786 

F275 

91 

05 



STA 

< RAMLO+1)> Y # 

RESTORE ORIGINAL RAM DATA 

3787 

F277 

A5 

06 



LDA 

TRAM5Z 


3788 

F279 

18 




CLC 



3789 

F27A 

69 

10 



ADC 

#$10 


3790 

F27C 

85 

06 



STA 

TRAMSZ 

INCR. RAM POINTER BY 4K. 

3791 

F27E 

DO 

E3 



BNE 

HOWMCH 

GO FIND HOW MUCH RAM. 

3792 

F280 

60 



ENDRAM: 

RTS 



3793 









3794 









3795 









3796 









3797 






HARDWARE INITIALIZATION 

3798 









3799 





i 




3800 

F281 

A9 

00 


HARD I 

LDA 

#0 


3801 

F283 

AA 




TAX 



3802 

F284 

9D 

00 

DO 

CLRCHP: 

STA 

$D000,X 


3803 

F287 

9D 

00 

D4 


STA 

$D40Q, X 


3804 

F28A 

9D 

00 

D2 


STA 

$0200, X 


3805 

F28D 

9D 

00 

D3 


STA 

$D300, X 


3806 

F290 

E8 




INX 



3307 

F291 

DO 

FI 



BNE 

CLRCHP 


3808 

F293 

60 




RTS 



3809 





i 




3810 





j 




3811 





i 

0. 5. 

RAM SETUP 


3812 









3813 

F294 

C6 

1 1 


OSRAM. 

DEC 

BRKKEY i 

TURN OFF BREAK KEY FLAG 

3814 

F296 

A5 

06 



LDA 

TRAMSZ 

READ RAM SIZE IN TEMP. REG. 

3815 

F298 

8D 

E4 

02 


STA 

RAMSIZ 

SAVE IT IN RAM SIZE. 

3816 

F29B 

8D 

E6 

02 


STA 

MEMTOP+1 i 

INXT. MEMTOP ADDR HI BYTE 

3817 

F29E 

A9 

00 



LDA 

#0 


3818 

F2A0 

8D 

E5 

02 


STA 

MEMTOP 

; INIT. MEMTOP ADDR LO BYTE 

3819 

F2A3 

A9 

00 



LDA 

#INIMLL 


3820 

F2A5 

8D 

E7 

02 


STA 

MEMLO 


3821 

F2A8 

A9 

07 



LDA 

#INIMLH 


3822 

F2AA 

8D 

E8 

02 


STA 

MEMLO+1 

INITIALIZE MEMLO ADDR VECTOR 

3823 

F2AD 

20 

OC 

E4 


JSR 

EDlTRV-t-$C 

EDITOR INIT. 

3824 

F2B0 

20 

1C 

E4 


JSR 

SCRENV+$C 

SCREEN INIT. 

3825 

F2B3 

20 

2C 

E4 


JSR 

KEYBDV+$C 

KEYBOARD INIT. 

3826 

F2B6 

20 

3C 

E4 


JSR 

PRINTV+$C 

i PRINTER HANDLER INIT 

3827 

F2B9 

20 

4C 

E4 


JSR 

CASETV+$C 

, CASSETTE HANDLER INIT 

3828 

F2BC 

20 

6E 

E4 


JSR 

CIOINV 

; CIO INIT. 

3329 

F2BF 

20 

65 

E4 


JSR 

3101NV 

; SIO INIT. 

3830 

F2C2 

20 

6B 

E4 


JSR 

INTINV 

; INTERRUPT HANDLER INIT. 

3831 

F2C5 

AD 

IF 

DO 


LDA 

CONSOL 


3832 

F2C8 

29 

01 



AND 

#$1 


3833 

F2CA 

DO 

02 



BNE 

NOKEY 

; GAME START KEY DEPRESSED? 

3834 

F2CC 

E6 

4A 



INC 

CKEY 

i YES, SET KEY FLAG. 

3835 

F2CE 

60 



NOKEY: 

RTS 



3836 










SB 


ERR LINE 

ADDR 

B1 

B2 

B3 B4 

MONITOR ***** 

MONITP.SRC 

-a-#### 3/9/79 ***** 4 

PAGE 89 

3837 

3838 

3839 





i 

i 

DO BOOT 

OF DISK 



3840 

F2CF 

A5 

08 


BOOT: 

LDA 

WARMST 



3841 

F2D1 

F0 

OA 



BEG 

NOW ARM 

,WARM START? 


3842 

F2D3 

A5 

09 



LDA 

BOOT? 

> YES, 


3843 

F2D5 

29 

01 



AND 

#1 



3844 

F2D7 

FO 

03 



BEG 

NOINIT 

;VALID BOOT? 


3845 

F2D9 

20 

7E 

F3 


JSR 

DINI 

;YES, RE-INIT. DOS SOFTWARE 


3846 

3847 

F2DC 

F2DD 

60 

A9 

01 


NGINIT: 

NOWARM: 

RTS 

LDA 

#1 



3848 

F2DF 

8D 

01 

03 


STA 

DUN IT 

iASSIGN DISK DRIVE NO. 


3849 

F2E2 

A9 

53 



LDA 

#STATC 



3850 

F2E4 

SD 

02 

03 


STA 

DCQMND 

,SET UP STATUS COMMAND 


3851 

F2E7 

20 

53 

E4 


JSR 

DSKINV 

:GO DO DISK STATUS 


3852 

F2EA 

10 

01 



BPL 

DOBOOT 

;IS STATUS FROM SIO GOOD? 


3853 

F2EC 

60 




RTS 


/ NO, GO BACK WITH BAD BOOT STATUS 

3854 

3855 

F2ED 

A9 

00 


DQBOOT: 

LDA 

#0 



3856 

F2EF 

SD 

013 

03 


STA 

DAUX2 



3857 

F2F2 

A9 

01 



LDA 

#1 



3858 

F2F4 

SD 

OA 

03 


STA 

DAUX1 

;SET SECTOR # TO 1 


3859 

F2F7 

A9 

00 



LDA 

#BUFFL 



3860 

F2F9 

SD 

04 

03 


STA 

DBUFLO 



3861 

F2FC 

A9 

04 



LDA 

#BUFFH 

iSET UP BUFFER ADDR ^ 0 ^ ° ° 


3862 

F2FE 

SD 

05 

03 


STA 

DBUFHI 


3863 

F301 

20 

9D 

F3 

SECT1: 

JSR 

GETSEC 

;GET SECTOR 


3864 

F304 

10 

08 



BPL 

ALLSEC 

i STATUS 0. K. ? 


3865 

F306 

20 

81 

F3 

BADDSK: 

JSR 

DSKRDE 

;NO, GO PRINT DISK READ ERROR 


3866 

F309 

A5 

4B 



LDA 

CASSBT 



3867 

F30B 

FO 

EO 



BEG 

DOBOOT 

,CASSETTE BOOT? 


3868 

F30D 

60 




RTS 


;YES, QUIT 


3869 

F30E 

A2 

03 


ALLSEC; 

LDX 

#3 



3870 

F310 

BD 

00 

04 

RDBYTE: 

LDA 

CASBUF-K3, X 

;READ A BUFFER BYTE 


3871 

F313 

9D 

40 

02 


STA 

DFLAGS, X 

iSTORE IT 


3872 

F316 

CA 




DEX 




3873 

F317 

10 

F7 



BPL 

RDBYTE 

;DONE WITH 4 BYTE TRANSFER ? 


3874 

F319 

AD 

42 

02 


LDA 

BQQTAD 

i YES, 


3875 

F31C 

85 

04 



STA 

RAMLO 



3876 

F31E 

AD 

43 

02 


LDA 

BOQTAD-M 



3877 

F321 

85 

05 



STA 

RAMLCH1 

,PUT BOOT ADDR INTO Z. PAGE RAM 


3878 

F323 

AD 

04 

04 


LDA 

CASBUF+7 



3879 

F326 

85 

oc 



STA 

DOSINI 

FESTABLISH DOS INIT ADDRESS 


3880 

F328 

AD 

05 

04 


LDA 

CASBUF+B 



3881 

F32B 

85 

OD 



STA 

DOSINI+i 



3882 

F32D 

AO 

7F 


MVBUFF: 

LDY 

#$7F 

;YES, SET BYTE COUNT 


3883 

F32F 

B9 

00 

04 

MVNXB, 

LDA 

CASBUF+3,Y 



3884 

F332 

91 

04 



STA 

(RAMLO), Y 

,MOVE A BYTE FROM SECTOR BUFFER 

TO BOOT ADDR 

3885 

F334 

SB 




DEY 




3886 

F335 

10 

F8 



BPL 

MVNXB 

; DONE 


3887 

F337 

13 




CLC 


; YES, 


3888 

F338 

A5 

04 



LDA 

RAMLO 



3889 

F33A 

69 

80 



ADC 

#$80 



3890 

F33C 

85 

04 



STA 

RAMLO 




ERR 


LINE 

ADDR 

Bi 

B2 

B3 B4 

NONITOR 


NONI TP. SRC 

3/9/79 ■£■### # 4 PAGE 90 

3891 

F33E 

A5 

05 



LDA 

RAMLO+1 


3892 

F340 

69 

00 



ADC 

#0 


3893 

F342 

85 

05 



STA 

RANLO+1 

> INCR BOOT LOADER BUFFER POINTER. 

3894 

F344 

CE 

41 

02 


DEC 

DBSECT 

;DECR # OF SECTORS. 

3895 

F347 

F0 

11 



BEG 

ENBOOT 

jMORE SECTORS ? 

3896 

F349 

EE 

OA 

03 


INC 

DAUX1 

jYES, INCR SECTOR # 

3897 

F34C 

20 

9D 

F3 

SECTX: 

JSR 

GETSEC 

i GO GET SECTOR. 

3898 

F34F 

10 

DC 



EPL 

MVBUFF 

j STATUS 0. K. 7 

3899 

F351 

20 

81 

F3 


JSR 

DSKRDE 

i NO, GO PRINT DISK READ ERROR 

3900 

F354 

A5 

4B 



LDA 

C ASSET 


3901 

F356 

DO 

AE 



ENE 

BADDSK 

7 IF CASSETTE, QUIT. 

3902 

F358 

FO 

F2 



BEG 

SECTX 

;IF DISK, TRY SECTOR AGAIN. 

3903 

F35A 

A5 

4B 


ENBOOT: 

LDA 

CASSBT 


3904 

F35C 

FO 

03 



BEG 

XBOOT 

iCASSETTE BOOT ? 

3905 

F35E 

20 

9D 

F3 


JSR 

GETSEC 

iYES, GET EOF RECORD, BUT DON'T USE IT. 

3906 

F361 

20 

6C 

F3 

XBOOT: 

JSR 

BLOAD 

iGO EXECUTE BOOT LOADER 

3907 

F364 

BO 

AO 



BCS 

BADDSK 

;IF BAD BOOT, DO IT OVER AGAIN 

3908 

F366 

20 

7E 

F3 


JSR 

DINI 

>GO INIT. SOFTWARE 

3909 

F369 

E6 

09 



INC 

BOOT? 

iSHOW BOOT SUCCESS 

3910 

F36B 

60 




RTS 



3911 

F36C 

18 



BLOAD: 

CLC 



3912 

F36D 

AD 

42 

02 


LDA 

BODTAD 


3913 

F370 

69 

06 



ADC 

#6 


3914 

F372 

85 

04 



STA 

RAMLO 


3915 

F374 

AD 

43 

02 


LDA 

BOOT AD+1 


3916 

F377 

69 

00 



ADC 

#0 


3917 

F379 

85 

05 



STA 

RANLO+1 

;PUT START ADDR OF BOOTLOADER INTO RAM 

3918 

F37B 

6C 

04 

00 


JMP 

(RAMLO) 


3919 

F37E 

6C 

oc 

00 

DINI' 

JMP 

(DOSINI) 


3920 





t 




3921 





i 




3922 





; 




3923 









3924 





i DISPLAY DISK 

READ ERROR MSG 

3925 









3926 

F381 

A2 

OD 


DSKRDE: 

LDX 

#DERRL 


3927 

F383 

AO 

FI 



LDY 

#DERRH 


3928 





i 




3929 





3 




3930 





5 




3931 





i 

PUT LINE ON SCREEN 

AT PRESENT CURSOR POSITION 

3932 





; 




3933 





l 


X-REG — LO 

BYTE, BEGIN ADDR OF LINE 

3934 





, 


Y-REG — HI 

BYTE, BEGIN ADDR OF LINE 

3935 





j 




3936 

F385 

8A 



PUTLIN: 

TXA 



3937 

F386 

A2 

00 



LDX 

#SEX 


3938 

F388 

9D 

44 

03 


STA 

ICBAL, X 


3939 

F38B 

98 




TYA 



3940 

F38C 

9D 

45 

03 


STA 

ICBAH, X 

i SET UP ADDR OF BEGIN OF LINE 

3941 

F38F 

A9 

09 



LDA 

SPUTTXT 


3942 

F391 

9D 

42 

03 


STA 

ICCQM, X 

j "PUT TEXT RECORD 11 COMMAND 

3943 

F394 

A9 

FF 



LDA 

#$FF 


3944 

F396 

9D 

48 

03 


STA 

ICBLL, X 

; SET BUFFER LENGTH 



ERR LINE ADDR B1 B2 B3 B4 

3945 F399 20 56 E4 

3946 F39C 60 
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JSR CIOV i PUT LINE ON SCREEN 
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3951 

3952 





i 

GET 

SECTOR FROM DISK 

0 

3953 

F39D 

A5 

4B 


GETSEC: 

LDA 

CASSBT 


3954 

F39F 

FO 

03 



BEG 

DISKM 

CASSETTE BOOT ? 

3955 

F3A1 

4C 

7A 

E4 


UMP 

RBLOKV 

YES, GO TO READ BLOCK ROUTINE 

3956 

F3A4 

A9 

52 


DISKM: 

LDA 

#READ 


3957 

F3A6 

8D 

02 

03 


STA 

DCOMND 

SET READ SECTOR COMMAND 

3958 

F3A9 

A9 

01 



LDA 

#1 


3959 

F3AB 

8D 

01 

03 


STA 

DUNIT 

SET DRIVE NO. TO DRIVE 0 

3960 

F3AE 

20 

53 

E4 


USR 

DSKINV 

GET SECTOR 

3961 

3962 

3963 

3964 

F3B1 

60 



p 

3 

RTS 



3965 





; DO CHECK FOR CASSETTE BOOT 

& IF SO, DO BOOT 

3966 

3967 

F3B2 

A5 

08 


CSBOOT: 

LDA 

WARMST 

WARMSTART? 

3968 

F3B4 

FO 

OA 



BEG 

CSB0T2 

NO 

3969 

F3B6 

A5 

09 



LDA 

BOOT? 

GET BOOT FLAG 

3970 

F3B8 

29 

02 



AND 

#2 

WAS CASSETTE BOOT SUCCESFULL? 

3971 

F3BA 

FO 

03 



BEG 

N0CSB2 

NO 

3972 

F3BC 

20 

El 

F3 


JSR 

CINI 

YES, INIT CASSETTE SOFTWARE 

3973 

3974 

F3BF 

60 



N0CSB2: 

J 

RTS 



3975 

F3C0 

A5 

4A 


CSBQT2: 

LDA 

CKEY 


3976 

F3C2 

FO 

1C 



BEG 

NOCSBT 

"C" KEY FLAG SET ? 

3977 

F3C4 

A9 

80 



LDA 

#$80 

YES, 

3978 

F3C6 

85 

3E 



STA 

FTYPE 

SET LONG IRQ TYPE 

3979 

F3C8 

E6 

4B 



INC 

CASSBT 

SET CASSETTE BOOT FLAG 

3980 

F3CA 

20 

7D 

E4 


JSR 

CSOPIV 

OPEN CASSETTE FOR INPUT 

3981 

F3CD 

20 

01 

F3 


JSR 

SECT 1 

DO BOOT & INIT. 

3982 

F3D0 

A9 

00 



LDA 

#0 


3983 

F3D2 

85 

4B 



STA 

CASSBT 

RESET CASSETTE BOOT FLAG 

3984 

F3D4 

85 

4A 



STA 

CKEY 

CLEAR KEY FLAG 

3985 

F3D6 

06 

09 



ASL 

BOOT? 

SHIFT BOOT FLAG (N0W=2 IF SUCCESS) 

3986 

F3D8 

A5 

oc 



LDA 

DOSINI 


3987 

F3DA 

85 

02 



STA 

CASINI 

; MOVE INIT ADDRESS FDR CASSETTE 

3988 

F3DC 

A5 

OD 



LDA 

DOSINI+1 


3989 

F3DE 

85 

03 



STA 

CASINI+1 


3990 

3991 

F3E0 

60 



NGCSBT: 

RTS 



3992 

F3E1 

6C 

02 

00 

C INI' 

JMP 

(CASINI) 

i INIT CASSETTE 


i ****************************************************************************** 


, SPARE BYTE OR MODULE TOO LONG FLAG 


CRNTP7 







ERR LINE 

ADDR 

3 1 B2 B3 B4 

MONITOR ***** 

MONITP. SRC 

***** 3/9/79 ***** 

3999 

4000 

4001 

4002 

0014 

00 

i 

MONBPR: . BYTE 

KBD0RG-CRNTP7 

/-'GMONITP TOO LONG 


ERR LINE ADDR B1 B2 B3 B4 
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4003 

4004 

4005 

4006 

4007 

4008 007D 

4009 009F 

4010 

4011 0068 

4012 0066 

4013 


. PAGE 

.TITLE 'DISPLAY HANDLER — 10-30-78 — DISPLC 7 

) 

; HANDLER DEPENDENT EQUATES 

CLRCOD = *7D iCLEAR SCREEN ATASCI CODE 

CNTL1 = *9F i POKEY KEY CODE FOR '"l 

i 

FRMADR = SAVADR 

TOADR = MLTTMP 


LINE 

ADDR 

B1 


B3 B4 

DISPLAY HANDLER 

-- 10-30 

-78 — DISPLC 

PAGE 

4014 





PAGE 




4015 





i 




4016 





} 




4017 





*=EDITRV 



4018 





J 




4019 





j SCREEN EDITOR 

HANDLER ENTRY POINT 


4020 





i 




402.1. 

E400 

FB 

F3 


EDITOR: .WORD 

EOPEN-1 



4022 

E402 

33 

F6 


. WORD 

RETUR1-1 

5 (CLOSE) 


4023 

E404 

3D 

F6 


. WORD 

EGE7CH-1 



4024 

E406 

A3 

F6 


WORD 

EOUTCH-1 



4025 

E408 

33 

F6 


. WORD 

RETURi-1 

»(STATUS) 


4026 

E40A 

3C 

F6 


. WORD 

NOFUNC—1 

i (SPECIAL) 


4027 

E40C 

4C 

E4 

F3 

JMP 

PWRONA 



4028 

E40F 

38 



. BYTE 

$38 

* ROM FILLER 

BYTE 

4029 





■ 




4030 





*=SCRENV 



4031 









4032 





i DISPLAY HANDLER ENTRY POINT 


4033 





5 




4034 

E410 

F5 

F3 


DISPLA: . WORD 

DOPEN-1 



4035 

E412 

33 

F6 


. WORD 

RETUR1-1 

j (CLOSE) 


4036 

E414 

92 

F5 


. WORD 

GETCH-l 



4037 

E416 

B6 

F5 


WORD 

0UTCH--1 



4038 

E418 

33 

F6 


. WORD 

RETUR1-1 

i(STATUS) 


4039 

E41A 

FB 

FC 


. WORD 

DRAW-1 

> (SPECIAL) 


4040 

E41C 

4C 

E4 

F3 

JMP 

PWRONA 



4041 

E41F 

F6 



. BYTE 

$F6 

;ROM FILLER 

BYTE 

4042 





p 




4043 





*=KEYBDV 



4044 





P 




4045 





J 




4046 





i KEYBOARD HANDLER ENTRY 

POINT 


4047 





; 




4048 

E420 

33 

F6 


KBDHND: . WORD 

RETURi-i 



4049 

E422 

33 

F 6 


. WORD 

RETUR1-1 

;(CLOSE) 


4050 

E424 

El 

F6 


. WORD 

KGETCH—1 



4051 

E426 

3C 

F6 


WORD 

NOFUNC-1 

;(OUTCH) 


4052 

E428 

33 

F6 


. WORD 

RETUR1-1 

j (STATUS) 


4053 

E42A 

3C 

F6 


. WORD 

NOFUNC-1 

j (SPECIAL) 


4054 

E42C 

4C 

E4 

F3 

JMP 

PWRONA 



4055 

E42F 

00 



. BYTE 

0 

)ROM FILLER 

BYTE 

4056 





/ 




4057 





i 




4058 





i INTERRUPT VECTOR TABLE 

ENTRY 


4059 





*«VCTABL-INTABS+VKEYBD 


4060 

E488 

BE 

FF 


. WORD 

PIRGQ 

;KEYBOARD IRQ INTERRUPT VECTOR 


I 


94 



ERR LINE ADDR B1 E2 B3 B4 

406 i 

4062 

4063 


4064 

F3E4 

A9 

FF 


4065 

F3E6 

8D 

FC 

02 

4066 

F3E9 

AD 

E6 

02 

4067 

F3EC 

29 

FO 


4068 

F3EE 

85 

6A 


4069 

F3F0 

A9 

40 


4070 

F3F2 

8D 

EE 

02 

4071 

F3F5 

60 




DISPLAY HANDLER 

1 — 10-3' 

#~KBDQRG 

PWRQNA: LDA 

#$FF 

ST A 

CH 

LDA 

MEMTGP+1 

AND 

#$F0 

STA 

RAMTQP 

LDA 

#$40 

STA 

SHFLOK 

RTS 



— DISPLC 


PAGE 


; INSURE 4K PAGE BOUNDARY 
; DEFAULT TD UPPER CASE ALPHA AT PUIRON 
jPOWER ON COMPLETED 


95 



ERR LINE 

ADDR 

B1 

B2 

B3 B4 

DISPLAY HANDLER 

! — 10“30“~78 

~ DISPLC PAGE 96 

4072 






. PAGE 



4073 









4074 





; 




4075 





; BEGIN 

DISPLAY 

HANDLER OPEN 

PROCESSING 

4076 





i 




4077 

F3F6 

A5 

2B 


DOPEN: 

LDA 

ICAX2Z 

GET AUX 2 BYTE 

4078 

F3F8 

29 

OF 



AND 

#*F 


4079 

F3FA 

DO 

08 



BNE 

OPNCGM 

IF MODE ZERO, CLEAR ICAX1Z 

4080 

F3FC 

A5 

2A 


EOPEN: 

LDA 

ICAX1Z i 

CLEAR “CLR INHIBIT" AND "MXD MODE" BITS 

4081 

F3FE 

29 

OF 



AND 

#*F 


4082 

F400 

85 

2A 



STA 

ICAX1Z 


4083 

F402 

A9 

00 



LDA 

#0 


4084 

F404 

85 

57 


QPNCOM: 

STA 

DINDEX 


4085 

F406 

A9 

EG 



LDA 

#*E0 

INITIALIZE GLOBAL VBLANK RAM 

4086 

F408 

8D 

F4 

02 


STA 

CHBAS 


4087 

F40B 

A9 

02 



LDA 

#2 


4088 

F40D 

8D 

F3 

02 


STA 

CHACT 


4089 

F410 

8D 

2F 

02 


STA 

SDMCTL i 

TURN OFF DMA NEXT VBLANK 

4090 

F413 

A9 

01 



LDA 

#SUCCES 


4091 

F415 

85 

4C 



STA 

DSTAT J 

CLEAR STATUS 

4092 

F417 

A9 

CO 



LDA 

#*C0 i 

DO IRGEN 

4093 

F419 

05 

10 



ORA 

FOKMSK 


4094 

F41B 

85 

10 



STA 

PGKMSK 


4095 

F41D 

8D 

OE 

D2 


8TA 

IRGEN 


4096 

F420 

A9 

00 



LDA 

#0 


4097 

F422 

8D 

93 

02 


STA 

TINDEX j 

TEXT INDEX MUST ALWAYS BE 0 

4098 

F425 

85 

64 



STA 

ADRESS 


4099 

F427 

85 

7B 



STA 

SWPFLG 


4100 

F429 

8D 

FO 

02 


STA 

CRSINM i 

TURN CURSOR ON AT OPEN 

4101 

F42C 

AO 

OE 



LDY 

#14 j 

i CLEAR TAB STOPS 

4102 

F42E 

A9 

01 



LDA 

#1 ) 

INIT TAB STOPS TO EVERY 8 CHARACTERS 

4103 

F430 

99 

A3 

02 

CLRTBS: 

STA 

TABMAF,Y 


4104 

F433 

88 




DEV 



4105 

F434 

10 

FA 



BPL 

CLRTBS 


4106 

F436 

A2 

04 



LDX 

#4 

LOAD COLOR REGISTERS 

4107 

F438 

BD 

CI 

FE 

DOPENB: 

LDA 

COLRTB,X 


4108 

F43B 

9D 

C4 

02 


STA 

COLORG,X 


4109 

F43E 

CA 




DEX 



4110 

F43F 

10 

F7 



BPL 

D0PEN8 


4111 

F441 

A4 

6A 



LDY 

RAMTOP i 

DO TXTMSC=*3C40 (IF MEMT0R=3000) 

41 12 

F443 

88 




DEY 



4113 

F444 

8C 

95 

02 


STY 

TXTMSC+1 


4114 

F447 

A9 

60 



LDA 

#*60 


4115 

F449 

8D 

94 

02 


STA 

TXTMSC 


4116 

F44C 

A6 

57 



LDX 

DINDEX 


4117 

F44E 

BD 

69 

FE 


LDA 

ANCONV, X 

CONVERT IT TO ANTIC CODE 

4118 

F451 

DO 

04 



BNE 

DOPENA 

IF ZERO, IT IS ILLEGAL 

4119 

F453 

A9 

91 


OPNERR: 

LDA 

#BADMOD 

SET ERROR STATUS 

4120 

F455 

85 

4C 



STA 

DSTAT 


4121 

F457 

85 

51 


DOPENA: 

STA 

HOLD! 


4122 

F459 

A5 

6A 



LDA 

RAMTOP i 

! SET UP AN INDIRECT POINTER 

4123 

F45B 

85 

65 



STA 

ADRESS+i 


4124 

F45D 

BC 

45 

FE 


LDY 

ALOCAT, X i 

; ALLOCATE N BLOCKS OF 40 BYTES 

4125 

F460 

A9 

28 


DOPEN1: 

LDA 

#40 



ERR LINE 

AD DR 

Bi 

B2 

B3 B4 

DISPLAY HANDLER — 10-30- 

-78 — DISPLC PAGE 97 

4126 

F462 

20 

21 

F9 


JSR 

DBSUB 


4127 

F465 

88 




DEV 



4128 

F466 

DO 

F8 



BNE 

DOPENi 


4129 

F468 

AD 

6F 

02 


LDA 

OPR IOR 

;CLEAR GTIA MODES 

4130 

F46B 

29 

3F 



AND 

#*3F 


4131 

F46D 

85 

67 



STA 

OPNTMP+1 


4132 

F46F 

AS 




TAY 



4133 

F470 

EO 

08 



CPX 

#8 

iTEST IF 320X1 

4134 

F472 

90 

17 



BCC 

N0T8 


4135 

F474 

8A 




TXA 


;GET 2 LOW BITS 

4136 

F475 

6A 




ROR 

A 


4137 

F476- 

6A 




ROR 

A 


4138 

F477 

6A 




ROR 

A 


4139 

F478 

29 

CO 



AND 

#*C0 

i NOW 2 TOP BITS 

4140 

F47A 

05 

67 



ORA 

OPNTMP+1 


4141 

F47C 

AS 




TAY 



4142 

F47D 

A9 

10 



LDA 

#16 

* SUBTRACT 16 MORE FOR PAGE BOUNDARY 

4143 

F47F 

20 

21 

JE9— 


JSR _ 

DBSUB __ 


4144 

F482 

EO 

OB 



CPX 

#11 

;TEST MODE 11 

4145 

F484 

DO 

05 



BNE 

N0T8 

;IF MODE = 11 

4146 

F486 

A9 

06 



LDA 

#6 

;PUT GTIA LUM VALUE INTO BACKGROUND REGISTER 

4147 

F488 

SD 

CS 

02 


STA 

COLOR4 


4148 

F48B 

80 

6F 

02 

N0T8: 

STY 

GPRIOR 

;STORE NEW PRIORITY 

4149 

F48E 

A5 

64 



LDA 

ADRESS 

;SAVE MEMORY SCAN COUNTER ADDRESS 

4150 

F490 

85 

58 



STA 

SAVMSC 


4151 

F492 

A5 

65 



LDA 

ADRESS+I 


4152 

F494 

85 

59 



STA 

SAVMSC+1 


4153 

F496 

AD 

OB 

D4 

VBWAIT: 

LDA 

VCOUNT 

t WAIT FOR NEXT VBLANK BEFORE MESSING 

4154 

F499’ 

C9 

7A 



CMP 

#*7A 

* WITH THE DISPLAY LIST 

4155 

F49B 

DO 

F9 



BNE 

VBWAIT 


4156 

F49D 

20 

IF 

F9 


JSR 

DBDEC 

;START PUTTING DISPLAY LIST RIGHT UNDER RAM 

4157 

F4A0 

BD 

75 

FE 


LDA 

PAGETB,X 

iTEST IF DISPLAY LIST WILL BE IN TROUBLE 

4158 

F4A3 

FO 

06 



BEQ 

NOMOD 

i OF CROSSING A 256 BYTE PAGE BOUNDARY 

4159 

F4A5 

A9 

FF 



LDA 

#*FF 

;IF BO, DROP DOWN A PAGE 

4160 

F4A7 

85 

64 



STA 

ADRESS 


4161 

F4A9 

C6 

65 



DEC 

ADRESS+1 


4162 

F4AB 

A5 

64 


NOMOD: 

LDA 

ADRESS 

;SAVE END OF DISPLAY LIST FOR LATER 

4163 

F4AD 

85 

68 



STA 

SAVADR 


4164 

F4AF 

A5 

65 



LDA 

ADRESS+1 


4165 

F4B1 

85 

69 



STA 

SAVADR+1 


4166 

F4B3 

20 

13 

F9 


JSR 

DBDDEC 

i(DOUBLE BYTE DOUBLE DECREMENT) 

4167 

F4B6 

A9 

41 



LDA 

#*41 

i (ANTIC) WAIT FOR VBLANK AND JMP TO TOP 

4168 

F4B8 

20 

17 

F9 


JSR 

STORE 


4169 

F4BB 

86 

66 



STX 

OPNTMP 


4170 

F4BD 

A9 

18 



LDA 

#24 

,INITIALIZE BOTSCR 

4171 

F4BF 

8D 

BF 

02 


STA 

B0T9CR 


4172 

F4C2 

A5 

57 



LDA 

DINDEX 

iDISALLOW MIXED MODE IF MODE. GE. 9 

4173 

F4C4 

C9 

09 



CMP 

#9 


4174 

F4C6 

BO 

2D 



BCS 

NGTMXB 


4175 

F4CS 

A5 

2A 



LDA 

ICAX1Z 

>TEST MIXED MODE 

4176 

F4CA 

29 

10 



AND 

#*10 


4177 

F4CC 

FO 

27 



BEG 

NOTMXD 


4178 

F4CE 

A9 

04 



LDA 

#4 


4179 

F4D0 

8D 

BF 

02 


STA 

BOTSCR 



ERR LINE 

ADDR 

B1 

B2 

B3 B4 

DISPLAY HANDLES 

i — 10—30—78 

— DISPLC PAGE 

98 

4180 

F4D3 

A2 

02 



LDX 

#2 j 

i ADD 4 LINES OF TEXT AT BOTTOM OF SCREEN 

4181 

F4D5 

A9 

02 


D0PEN2: 

LDA 

#2 



4182 

F4D7 

20 

17 

F9 


JSR 

STORE 



4183 

F4DA 

CA 




DEX 




4184 

F4DB 

10 

F8 



BPL 

D0PEN2 



4185 

F4DD 

A4 

6 A 



LDY 

RAMTOP J 

i RELOAD M5C FOR TEXT 


4186 

F4DF 

88 




DEY 




4187 

F4E0 

98 




TYA 




4188 

F4E1 

20 

17 

F9 


JSR 

STORE 



4189 

F4E4 

A9 

60 



LDA 

#$60 



4190 

F4E6 

20 

17 

F9 


JSR 

STORE 



4191 

F4E9 

A9 

42 



LDA 

#$42 



4192 

F4EB 

20 

17 

F9 


JSR 

STORE 



4193 

F4EE 

18 




CLC 




4194 

F4EF 

A9 

OC 



LDA 

ttMXDMDE-NUMDLE JPOINT X AT MIXED MODE TABLE 


4195 

F4F1 

65 

66 



ADC 

OPNTMP 



4196 

F4F3 

85 

66 



STA 

OPNTMR 



4197 

F4F5 

A4 

66 


NOTMXB: 

LDY 

OPNTMP 



4198 

F4F7 

BE 

51 

FE 


LDX 

NUMBLE,Y 

, GET NUMBER OF DISPLAY LIST ENTRIES 


4199 

F4FA 

A5 

51 


D0PEN3: 

LDA 

HOLD 1 

i STORE N DLE'S 


4200 

F4FC 

20 

17 

F9 


JSR 

STORE 



4201 

F4FF 

CA 




DEX 




4202 

F 500 

DO 

F8 



BNE 

D0PEN3 



4203 

F502 

A5 

57 



LDA 

DINDEX 

; DO THE MESSY 320X1 PROBLEM 


4204 

F504 

C9 

08 



CMP 

#8 



4205 

F506 

90 

1C 



BCC 

DOPEN5 



4206 

F508 

A2 

5D 



LDX 

#93 

, GET REMAINING NUMBER OF DLE'S 


4207 

F50A 

A5 

6A 



LDA 

RAMTOP 

. RELOAD MEMORY SCAN COUNTER 


4208 

F5GC 

38 




SEC 




4209 

F50D 

E9 

10 



SBC 

#$10 



4210 

F50F 

20 

17 

F9 


JSR 

STORE 



421 1 

F512 

-A9 

00 



LDA 

#0 



4212 

F514 

'20 

17 

F9 


JSR 

STORE 



4213 

F517 

A9 

4F 



LDA 

#$4F 

, (ANTIC; RELOAD MSC CODE 


4214 

F519 

20 

17 

F9 


JSR 

STORE 



4215 

F51C 

A5 

51 


D0PEN4: 

LDA 

HOLD! 

i DO REMAINING DLE'S 


4216 

F51E 

20 

17 

F9 


JSR 

STORE 



4217 

F521 

CA 




DEX 




4218 

F522 

DO 

F8 



BNE 

D0PEN4 



4219 

F524 

A5 

59 


D0PEN5; 

LDA 

SAVMSC+1 

; POLISH OFF DISPLAY LIST 


4220 

F526 

20 

17 

F9 


JSR 

STORE 



4221 

F529 

A5 

58 



LDA 

SAVMSC 



4222 

F52B 

20 

17 

F9 


JSR 

STORE 



4223 

F52E 

A5 

51 



LDA 

H0LD1 



4224 

F530 

09 

40 



ORA 

#$40 



4225 

F532 

20 

17 

F9 


JSR 

STORE 



4226 

F535 

A9 

70 



LDA 

#$70 

; 24 BLANK LINES 


4227 

F537 

20 

17 

F9 


JSR 

STORE 



4228 

F53A 

A9 

70 



LDA 

#$70 



4229 

F53C 

20 

17 

F9 


JSR 

STORE 



4230 

F53F 

A5 

64 



LDA 

ADRESS 

; SAVE DISPLAY LIST ADDRESS 


4231 

F541 

BD 

30 

02 


STA 

SDLSTL 



4232 

F544 

A5 

65 



LDA 

ADRESS+1 



4233 

F546 

8D 

31 

ru 

o 


STA 

5DLSTL+1 






ERR LINE 

ADDR 

B1 

B2 

B3 B4 

DISPLAY HANDLER 

— 10-30 

-78 — DISPLC PAGE 

4234 

F549 

A9 

70 


LDA 

#470 

;ADD LAST BLANK LINE ENTRY 

4235 

F54S 

20 

17 

F9 

J8R 

STORE 

.POSITION ADRESS=SDLSTL-1 

4236 

F54E 

A5 

64 


LDA 

ADRESS 

;STORE NEW MEMTOP 

4237 

F 5 50 

SD 

E5 

02 

STA 

MEMTOP 


4238 

F553 

A5 

65 


LDA 

ADRESS+1 


4239 

F555 

8D 

E6 

02 

STA 

MEMTOP+1 


4240 

F558 

AS 

68 


LDA 

SAVADR 


4241 

F55A 

85 

64 


8TA 

ADRESS 


4242 

F55C 

AS 

69 


LDA 

SAVADR+1 


4243 

F55E 

85 

65 


STA 

ADRESS+1 


4244 

F560 

AD 

31 

02 

LDA 

SDLSTL+i 


4245 

F563 

20 

17 

F9 

JSR 

STORE 


4246 

F566 

AD 

30 

02 

LDA 

SDLSTL 


4247 

F569 

20 

17 

F9 

JSR 

STORE 


4248 

F56C 

AS 

4C 


LDA 

DSTAT 

;IF ERROR OCURRED ON ALLOCATION, OPEN 

4249 

F56E 

10 

07 


BPL 

DOPEN9 


4250 

F570 

48 



PHA 


iSAVE STATUS 

4251 

F571 

20 

FC 

F3 

JSR 

EOPEN 

i OPEN THE EDITOR 

4252 

F574 




..-FLA 


; RESTORE- STATUS ■ 

4253 

F575 

AS 



TAY 


jAND.RETURN IT TO CIO 

4254 

F576 

60 



RTS 



4255 

F577 

AS 

2A 


D0PEN9: LDA 

XCAX1Z 

;TEST CLEAR INHIBIT BIT 

4256 

F579 

29 

20 


AND 

#420 


4257 

F57B 

DO 

OB 


BNE 

D0PEN7 


4258 

F57D 

20 

B9 

F7 

JSR 

CLRSCR 

;CLEAR SCREEN 

4259 

F580 

8D 

90 

02 

STA 

TXTRQW 

iAND HOME TEXT CURSOR (AC IS ZERO) 

4260 

F583 

AS 

52 


LDA 

LMARGN 


4261 

F585 

8D 

91 

02 

STA 

TXTCOL 


4262 

F588 

A9 

22 


D0PEN7: LDA 

#422 

iEVERYTHING ELSE IS SET UP 

4263 

F58A 

OD 

2F 

02 

ORA 

SDMCTL 

iSO TURN ON DMACTL 

4264 

F58D 

8D 

2F 

02 

STA 

SDMCTL 


4265 

F590 

4C 

21 

F6 

JMP 

RETURM 


4266 





i 



4267 





i 



4268 

F593 

20 

96 

FA 

GETCH: JSR 

RANGE 

iGETCH DOES INCRSR, GETPLT DOESN y T 

4269 

F596 

20 

A2 

F5 

JSR 

GETPLT 


4270 

F599 

20 

32 

FB 

JSR 

INATAC 

jCONVERT INTERNAL CODE TP ATASCII 

4271 

F59C 

20 

D4 

F9 

JSR 

INCRSB 


4272 

F59F 

4C 

34 

F6 

JMP 

RETUR1 


4273 

F5A2 

20 

47 

F9 

GETPLT: JSR 

CONVRT 

3 CONVERT ROW/COLUMN TO ADRESS 

4274 

F5A5 

B1 

64 


LDA 

(ADRESS), 

Y 

4275 

F5A7 

2D 

AO 

02 

AND 

DMASK 


4276 

F5AA 

46 

6F 


SHIFTD: LSR 

SHFAMT 

;SHIFT DATA DOWN TO LOW BITS 

4277 

F5AC 

BO 

03 


BCS 

SHIFT1 


4278 

F5AE 

4A 



LSR 

A 


4279 

F5AF 

10 

F9 


BPL 

SHIFTD 

i(UNCONDITIONAL) 

4280 

FSB 1 

8D 

FA 

02 

SHI FT 1 *. STA 

CHAR 


4281 

F5B4 

C9 

00 


CMP 

#0 

;RESTORE FLAGS ALSO 

4282 

FSB 6 

60 



RTS 



4283 








4284 





i 



4285 





# 



4286 

F5B7 

8D 

FB 

02 

DUTCH: STA 

ATACHR 


4287 

FSB A 

20 

96 

FA 

JSR 

RANGE 





ERR LINE 

ADDR 

B1 

B2 

B3 B4 

DISPLAY HANDLER 

! — 10-30—7S — DISPLC FAGE 100 

4288 





i 

JSR 

OFFCRS 

4289 

F5BD 

AD 

FB 

02 

OUTCHA: 

LDA 

ATACHR iTEST FOR CLEAR SCREEN 

4290 

F5C0 

C9 

7D 



CMP 

#CLRCOD 

4291 

F5C2 

DO 

06 



BNE 

OUTCHE 

4292 

F5C4 

20 

B9 

F7 


JSR 

CLRSCR 

4293 

F5C7 

4C 

21 

F6 


JMP 

RETURN 

4294 

F5CA 

AD 

FB 

02 

OUTCHE: 

LDA 

ATACHR > TEST FOR CARRIAGE RETURN 

4295 

F5CD 

C9 

9B 



CMP 

#CR 

4296 

F5CF 

DO 

06 



BNE 

OUTCHB 

4297 

F5D1 

20 

30 

FA 


JSR 

DOCRWS ; DO CR 

4298 

F5D4 

4C 

21 

F6 


JMP 

RETURM 

4299 

F5D7 

20 

ED 

F5 

QUTCHB: 

JSR 

OUTPLT 

4300 

F5DA 

20 

D8 

F9 


JSR 

INCRSR 

4301 

F5DD 

4C 

21 

F6 


JMP 

RETURM 

4302 





. 



4303 





j 



4304 

F5E0 

AD 

FF 

02 

OUTPLT: 

LDA 

SSFLAG ;*****LOOP HERE IF START/STOP FLAG IS NON-O 

4305 

F5E3 

DO 

FB 



BNE 

OUTPLT 

4306 

F5E5 

A2 

02 



LDX 

#2 

4307 

F5E7 

B5 

54 


CRLOOP; 

LDA 

ROWCRS* X .SAVE CURSOR LOCATION FOR DRAW LINE TO DRAW 

4308 

F5E9 

95 

5A 



STA 

OLDROW. X 

4309 

F5EB 

C'A 




DEX 


4310 

F5EC 

10 

F9 



BPL 

CRLOOP 

4311 

F5EE 

AD 

FB 

02 


LDA 

ATACHR iCONVERT ATASCII(ATACHR) TO INTERNAL(CHAR> 

4312 

F5F1 

AS 




TAV 

I SAVE ATACHR 

4313 

F5F2 

2 A 




ROL 

A 

4314 

F5F3 

2A 




RGL 

A 

4315 

F5F4 

2A 


✓ 


ROL 

A 

4316 

F5F5 

2A 




ROL 

A 

4317 

F5F6 

29 

03 



AND 

#3 

4318 

F5F8 

AA 




TAX 

;X HAS INDEX INTO ATAINT 

4319 

F5F9 

98 




TYA 

»RESTORE ATACHR 

4320 

F5FA 

29 

9F 



AND 

#*9F ;STRIP OFF COLUMN ADDRESS 

4321 

F5FC 

ID 

F 6 

FE 


ORA 

ATAINT. X i OR IN NEW COLUMN ADDRESS 

4322 

F5FF 

8D 

FA 

02 

DUTCH2: 

STA 

CHAR 

4323 

F602 

20 

47 

F9 


JSR 

CQNVRT 

4324 

F605 

AD 

FA 

02 


LDA 

CHAR 

4325 

F608 

46 

6F 


SHIFTU: 

LSR 

SHFAMT .SHIFT UP TO PROPER POSITION 

4326 

F60A 

BO 

04 



BCS 

SHIFT2 

4327 

F60C 

OA 




ASL 

A 

4328 

F60D 

4C 

08 

F6 


JMP 

SHIFTU 

4329 

F610 

2D 

AO 

02 

SHIFTS: 

AND 

DM ASK 

4330 

F613 

85 

50 



STA 

TMPCHR >SAVE SHIFTED DATA 

4331 

F615 

AD 

AO 

02 


LDA 

DMASK i INVERT MASK 

4332 

F618 

49 

FF 



EOR 

#*FF 

4333 

F61A 

31 

64 



AND 

< ADRESS). Y i MASK OFF OLD DATA 

4334 

F61C 

05 

50 



ORA 

TMPCHR ; OR IN NEW DATA 

4335 

F61E 

91 

64 



STA 

(ADRESS).Y 

4336 

F620 

60 




RTS 


4337 








4338 





I 



4339 

F621 

20 

A2 

F5 

RETURN: 

JSR 

GETPLT ;DO CURSOR ON THE WAY OUT 

4340 

F624 

85 

5D 



STA 

OLDCHR 

4341 

F626 

A6 

57 



LDX 

DINDEX iGRAPHICS HAVE INVISIBLE CURSOR 



ERR LINE 

ADDR 

B1 

B2 

B3 B4 

4342 

F628 

DO 

OA 


4343 

F62A 

AE 

FO 

02 

4344 

F62D 

DO 

05 


4345 

F62F 

49 

80 


4346 

F631 

20 

FF 

F5 

4347 

F634 

A4 

4C 


4348 

F636 

A9 

01 


4349 

F63S 

85 

40 


4350 

F63A 

AD 

FB 

02 

4351 

4352 

4353 

4354 

F63D 

60 




4355 

4356 


DISPLAY HANDLER — 10-30-78 — DISPLC PAGE 101 

BNE RETUR1 

LDX CRSINH iTEST CURSOR INHIBIT 

BNE RETUR1 

EOR #480 ■ TOGGLE MSB 

JSR 0UTCH2 ; DISPLAY IT 

RETUR1 LDY DSTAT .RETURN TO CIO WITH STATUS IN Y 

LDA #S'JCCES 

STA DSTAT -SET STATUS* SUCCESSFUL COMPLETION 

LDA ATACHR ; PUT ATACHR IN AC FOR RETURN TO CIO 

NOFUNC RTS > (NON-EXISTENT FUNCTION RETURN POINT) 


END OF DISPLAY HANDLER 



ERR LINE ADDR B1 B2 B3 B4 


DISPLAY HANDLER 


10-30 


4357 






. PAGE 


4358 





j 



4359 








4360 





i 



4361 





t 



4362 

F63E 

20 

B3 

FC 

EGETCH: 

JSR 

SWAP 

4363 

F641 

20 

88 

FA 


USR 

ERANGE 

4364 

F644 

A5 

6B 



LDA 

BUFCNT 

4365 

F646 

DO 

34 



BNE 

EGETC3 

4366 

F648 

A5 

54 



LDA 

ROWCRS 

4367 

F64A 

35 

6C 



STA 

BUFSTR 

4368 

F64C 

A5 

55 



LDA 

COLORS 

4369 

F64E 

85 

6D 



STA 

BUFSTR+i 

4370 

F650 

20 

E2 

F6 

EGETC1 ■ 

USR 

KGETCH 

4371 

F653 

84 

40 



STY 

DSTAT 

4372 

F655 

AD 

FB 

02 


LDA 

AT ACHR 

4373 

F658 

C9 

9B 



CMP 

#CR 

4374 

F65A 

FO 

12 



BEQ 

EGETC2 

4375 

F65C 

20 

AD 

F6 


USR 

DOBS 

4376 

F65F 

20 

33 

FC 


USR 

SWAP 

4377 

F662 

A5 

63 



LDA 

LDGCOL 

4378 

F664 

C9 

71 



CMP 

#113 

4379 

P 666 

DO 

03 



BNE 

EGETC6 

4380 

F66S 

'20 

OA 

F9 


USR 

BELL 

4381 

F66B 

4C 

50 

F6 

EGETC6: 

UMP 

EGETC1 

4382 

F66E 

20 

E4 

FA 

EGETC2: 

USR 

OFFCRS 

4383 

F671 

20 

00 

FC 


USR 

DOBUFO 

4384 

F674 

A5 

6C 



LDA 

BUFSTR 

4385 

F676 

85 

54 



STA 

ROWCRS 

4386 

F678 

A5 

6D 



LDA 

BUFSTR+1 

4387 

F67A 

85 

55 



STA 

COLCRS 

4388 

F67C 

A5 

6B 


EGETC3: 

LDA 

BUFCNT 

4389 

F67E 

FO 

1 1 



BEQ 

EGETC5 

4390 

F680 

C6 

6B 


EGETC7 

DEC 

BUFCNT 

4391 

F682 

FO 

OD 



BEQ 

EGETC5 

4392 

F684 

A5 

40 



LDA 

DSTAT 

4393 

F686 

30 

F8 



BMI 

EGETC7 

4394 

F688 

20 

93 

F5 


USR 

GETCH 

4395 

F68B 

8D 

FB 

02 


STA 

ATACHR 

4396 

F68E 

40 

B3 

FC 


UMP 

SWAP 

4397 

F691 

20 

30 

FA 

EGETC5: 

USR 

DDCRWS 

4398 

F694 

A9 

9B 



LDA 

#CR 

4399 

F696 

8D 

FB 

02 


STA 

ATACHR 

4400 

F699 

20 

21 

F6 


USR 

RETURN 

4401 

F69C 

84 

4C 



STY 

DSTAT 

4402 

F69E 

4C 

B3 

FC 


UMP 

SWAP 

4403 








4404 

F6A1 

6C 

64 

00 

USRIND: 

UMP 

(ADRESS) 

4405 








4406 

F6A4 

8D 

FB 

02 

EOUTCH: 

STA 

ATACHR 

4407 

F6A7 

20 

B3 

FC 


USR 

SWAP 

4408 

F6AA 

20 

88 

FA 


USR 

ERANGE 

4409 

F6AD 

20 

E4 

FA 

DOSS: 

USR 

OFFCRS 

4410 

F6B0 

20 

8D 

FC 


USR 

TSTCTL 


DISPLC 


PAGE 102 


iANYTHING IN THE BUFFER? 
i YES 

, NO) SO SAVE BUFFER START ADDRESS 


i LET 'S FILL OUR BUFFER 
> SAVE KEYBOARD STATUS 
>TEST FOR CR 


;NO) SO PRINT IT 

, JSR DOSS DID SWAP SO SWAP BACK 
i BEEP IF NEARING LOGICAL COL 120 


7 GET BUFFER COUNT 
7 RETURN A CHARACTER 


? AND RETURN TILL BUFCNT=0 

: IF ERROR) LOOP ON EGETC7 UNTIL BUFFER IS EM 


;AND RETURN WITHOUT TURNING CURSOR BACK ON 
i DO REAL CARRIAGE RETURN 
jAND RETURN EOL 

; TURN ON CURSOR THEN SWAP 
;SAVE KEYBOARD STATUS 
/ AND RETURN THROUGH RETUR1 

>JSR TO THIS CAUSES USR INDIRECT 

iSAVE ATASCII VALUE 


; TURN OFF CURSOR 

>TEST FOR CONTROL CHARACTERS (2=1 IF CTL) 





ERR LINE ADDR B1 B2 B3 B4 


DISPLAY HANDLER 


10—30—7 


4411 

F6B3 

FO 

09 



BEG 

E0UTC5 

4412 

F6B5 

OE 

A2 

02 

E0UTC6: 

ASL 

ESCFLG 

4413 

F6B8 

20 

CA 

F5 


USR 

GUTCHE 

4414 

F6BB 

4C 

B3 

FC 

ERETN: 

UMP 

SWAP 

4415 

F6BE 

AD 

FE 

02 

E0UTC5: 

LDA 

DSPFLG 

4416 

F6C1 

OD 

A2 

02 


GRA 

ESCFLG 

4417 

F6C4 

DO 

EF 



BNE 

E0UTC6 

44 IS 

F6C6 

OE 

A2 

02 


ASL 

ESCFLG 

4419 

F6C9 

E8 




INX 


4420 

F6CA 

BD 

C6 

FE 


LDA 

CNTRLS, X 

4421 

F6CD 

85 

64 



STA 

ADRESS 

4422 

F6CF 

BD 

C7 

FE 


LDA 

CNTRLS+1 / X 

4423 

F6D2 

85 

65 



STA 

ADRESS+1 

4424 

F6D4 

20 

A1 

F6 


USR 

USRINO 

4425 

F6D7 

20 

21 

F6 


USR 

RETURM 

4426 

F6DA 

4C 

B3 

FC 


UMP 

SWAP 

4427 





i 



4428 





i 



4429 

4430 





i 



4431 





; END SCREEN 

EDITOR. 

4432 





} 



4433 








4434 





, BEGIN 

KEYBOARD HANDLER 

4435 








4436 





; 



4437 





i 



4438 





, 



4439 

F6DD 

A9 

FF 


KGETC2: 

LDA 

#*FF 

4440 

F6DF 

8D 

FC 

02 


STA 

CH 

4441 

F6E2 

A5 

2A 


KGETCH; 

LDA 

ICAX12 

4442 

F6E4 

4A 




LSR 

A 

4443 

F6E5 

BO 

62 



BCS 

GETOUT 

4444 

F6E7 

A9 

80 



LDA 

#BRKABT 

4445 

F6E9 

A6 

11 



LDX 

BRKKEY 

4446 

F6EB 

FO 

58 



BEG 

K7 

4447 

F6ED 

AD 

FC 

02 


LDA 

CH 

44 48 

F6F0 

C9 

FF 



CMP 

#*FF 

4449 

F6F2 

FO 

EE 



BEG 

KGETCH 

4450 

F6F4 

85 

7C 



STA 

HQLDCH 

4451 

F6F6 

A2 

FF 



LDX 

#$FF 

44 52 

F6F8 

8E 

FC 

02 


STX 

CH 

4453 

F6FB 

20 

08 

FC 


USR 

CLICK 

4454 

F6FE 

AA 



KGETC3: 

TAX 


4455 

F6FF 

EO 

CO 



CPX 

#$C0 

4456 

F701 

90 

02 



bcc 

ASCC01 

4457 

F703 

A2 

03 



LDX 

#3 

4458 

F705 

BD 

FE 

FE 

ASCC01: 

LDA 

ATASCI * X 

4459 

F708 

8D 

FB 

02 


STA 

ATACHR 

4460 

F703 

C9 

SO 



CMP 

#$80 

4461 

F70D 

FO 

CE 



BEG 

KGETC2 

4462 

F70F 

C9 

81 



CMP 

#$81 

4463 

F711 

DO 

OB 



BNE 

KGETC1 

4464 

F713 

AD 

B6 

02 


LDA 

INVFLG 


DISPLC 
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>ESCFLG ONLY WORKS ONCE 

AND RETURN THROUGH RETUR1 
iDO DSPFLG AND ESCFLG 

,* IF NQN--0 DISPLAY RATHER THAN EXECUTE IT 

i PROCESS CONTROL CHARACTERS 
;GET DISPLACEMENT INTO ROUTINE 

i GET HIGH BYTE 

»DO COMPUTED USR 
»DO CURSOR 

;ALL DONE SO RETURN THROUGH RETUR1 


i TEST LSD OF AUX1 FOR SPECIAL EDITOR READ MG 


i TEST BREAK 

iIF BREAK, PUT BRKABT IN DSTAT AND CR IN ATA 


j SAVE CH FOR SHIFT LOCK PROC 
i "CLEAR 11 CH 

iDO KEYBOARD AUDIO FEEDBACK <A IS OK) 
i DO ASCCON 

; TEST FOR CTL & SHIFT TOGETHER 

,BAD CODE 

, DONE 
;DO NULLS 


,CHECK ATARI KEY 



ERR LINE ADDR B1 B2 B3 B4 


DISPLAY HANDLER -- 10- 


4465 

F716 

49 

SO 



EOR 

#$80 

4466 

F718 

8D 

B6 

02 


STA 

INVFLG 

4467 

F71B 

4C 

I?D 

F6 


UMP 

KGETC2 

4468 

F71E 

C9 

82 


KGETC1• 

CMP 

#$82 

4469 

F720 

DO 

07 



BNE 

Ki 

4470 

F722 

A9 

00 



LDA 

#0 

4471 

F724 

8D 

BE 

02 


STA 

SHFLGK 

4472 

F727 

FO 

B4 



BEQ 

KGETC2 

4473 

F729 

C9 

83 


K1 

CMP 

#$83 

4474 

F72S 

DO 

07 



BNE 

K2 

4475 

F72D 

A9 

40 



LDA 

#$40 

4476 

F72F 

BD 

BE 

02 


STA 

SHFLOK 

4477 

F732 

DO 

A9 



BNE 

KGETC2 

4478 

F734 

C9 

34 


K2: 

CMP 

#$84 

4479 

F736 

DO 

07 



BNE 

K3 

4480 

F733 

A9 

80 



LDA 

#$80 

4481 

F73A 

8D 

BE 

02 


STA 

SHFLOK 

4482 

F73D 

DO 

9E 



ENE 

KGETC2 

4483 

F73F 

C9 

85 


K3: 

CMP 

#$85 

4484 

F741 

DO 

OA 



BNE 

K6 

4485 

F743 

A9 

38 



LDA 

#EOFERR 

4486 

F745 

85 

4C 


K7: 

STA 

DSTAT 

4487 

F747 

85 

11 



STA 

BRKKEY 

4488 

F749 

A9 

9B 


GETOUT: 

LDA 

#CR 

4489 

F74B 

DO 

26 



BNE 

K8 

4490 

F-74D 

A5 

7C 


K6: 

LDA 

HOLDCH 

4491 

F74F 

C9 

40 



CMP 

#$40 

4492 

F751 

BO 

15 



BCS 

K5 

4493 

F753 

AD 

FB 

02 


LDA 

ATACHR 

4494 

F756 

C? 

61 



CMP 

#$61 

4495 

F758 

90 

OE 



BCC 

K5 

4496 

F75A 

C9 

7B 



CMP 

#$7B 

4497 

F75C 

BO 

OA 



BCS 

K5 

4498 

F75E 

AD 

BE 

02 


LDA 

SHFLOK 

4499 

F761 

FO 

05 



BEQ 

K5 

4500 

F763 

05 

70 



ORA 

HOLDCH 

4501 

F765 

4C 

FE 

F6 


UMP 

KGETC3 

4502 

F763 

20 

8D 

FC 

K5: 

JSR 

TSTCTL 

4503 

F76B 

FO 

09 



BEQ 

K4 

4504 

F76D 

AD 

FB 

02 


LDA 

ATACHR 

4505 

F770 

4D 

B6 

02 


EOR 

INVFLG 

4506 

F773 

8D 

FB 

02 

K8: 

STA 

ATACHR 

4507 

F776 

4C 

34 

F6 

K4 ' 

UMP 

RETUR1 

4508 





i 



4509 









DISPLC 
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i DONT RETURN A VALUE 
; CAPS/LOWER 

i CLEAR SHFLOK 


iSHIFT CAPS/LOWER 


iSHIFT BIT 
i CNTL CAPS/LOWER 
;CNTL BIT 


i DO EOF 


i RESTORE BREAK 
;PUT CR IN ATACHR 
; (UNCONDITIONAL) 
iPROCESS SHIFT LOCKS 

;REGULAR SHIFT AND CONTROL TAKE PRECEDENCE 
i OVER LOCK 
iTEST FOR ALPHA 
iLOWER CASE A 
f NOT ALPHA IF LT 
i LOWER CASE Z+l 
j NOT ALPHA IF GE 
* DO SHIFT/CONTROL LOCK 
i IF NO LOCK, DONT RE-DO IT 

iDO RETRY 

;DONT INVERT MSB OF CONTROL CHARACTERS 


iALL DONE 



LINE 

ADDR 

B1 

B2 

B3 B4 

DISPLAY HANDLER 

— 10-30 

-7e — DISPLC 
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4510 






. PAGE 




4511 





1 





4512 





5 





4513 





3 CONTROL CHARACTER PROCESSORS 


4514 










4515 

F779 

A9 

80 


ESCAPE: 

LDA 

#$80 

;SET ESCAPE FLAG 


4516 

F77B 

8D 

A 2 

02 


STA 

ESCFLG 



4517 

F77E 

60 




RTS 




4518 

F77F 

C6 

54 


CRSRUP 

DEC 

RQWCRS 



4519 

F78I 

10 

06 



BPL 

COMRET 



4520 

F783 

AE 

BF 

02 


LDX 

BDTSCR 

;WRAPAROUND 


4521 

F786 

CA 




DEX 




4522 

F787 

86 

54 


UPDNCM 

STX 

ROWCRS 



4523 

F789 

4C 

5C 

FC 

COMRET 

JMP 

STRBEG 

*COLUERT ROW AND COL TO LOGCOL 

AND RETURN 

4524 

F78C 

E6 

54 


CRSRDN 

INC 

RQWCRS 



4525 

F78E 

A5 

54 



LDA 

ROWCRS 



4526 

F790 

CD 

BF 

02 


CMP 

BOTSCR 



4527 

F793 

90 

F4 



BCC __ 

COMREI_ 



4528 

F795 

A2 00 

■—■- 

- 

LDX 

#0 



4529 

F797 

F0 

EE 



BEG 

UPDNCM 

i(UNCONDITIONAL) 


4530 

F799 

C6 

55 


CRSRLF 

DEC 

COLORS 



4531 

F79B 

A5 

55 



LDA 

COLORS 



4532 

F79D 

30 

04 



BMI 

CRSRL1 

i(IF LMARGN=0, THIS ELIMINATES 

PROBLEM CASE 

4533 

F79F 

C5 

52 



CMP 

LMARGN 



4534 

F7A1 

BO 

04 



BCS 

COMREI 



4535 

F7A3 

A5 

53 


CRSRL1 

LDA 

RMARGN 



4536 

F7A5 

85 

55 


LFRTCM 

STA 

COLORS 



4537 

F7A7 

4C 

DD 

FB 

C0MRE1 

JMP 

DOLCOL 

iCOLVERT ROW AND COL TO LOGCOL 

AND RETURN 

4538 

F7AA 

E6 

55 


CRSRRT 

INC 

COLORS 



4539 

F7AC 

A5 

55 



LDA 

COLORS 



4540 

F7AE 

C5 

53 



CMP 

RMARGN 



4541 

F7B0 

90 

F5 



BCC 

COMREI 



4542 

F7B2 

FO 

F3 



BEG 

COMREI 

> (CAUSE BLE) 


4543 

F7B4 

A5 

52 



LDA 

LMARGN 



4544 

F7B6 

4C 

A5 

F7 


JMP 

LFRTCM 

; UNCONDITIONAL. TO COMMON STORE 


4545 

F7B9 

20 

F3 

FC 

CLRSCR 

: JSR 

PUTMSC 



4546 

F7BC 

AO 

00 



LDY 

#0 



4547 

F7BE 

98 




TYA 


iPUT 0 IN THE AC 


4548 

F7BF 

91 

64 


CLRSC2 

: STA 

(ADRESS), 

Y ,(AC IS ZERO) 


4549 

F7C1 

C8 




I NY 




4550 

F7C2 

DO 

FB 



BNE 

CLRSC2 



4551 

F 7 C 4 

E6 

65 



INC 

ADRESS+i 

► 


4552 

F7C6 

A6 

65 



LDX 

ADRESS+i 



4553 

F7C8 

E4 

6 A 



CPX 

RAMTOP 



4554 

F 7 C A 

90 

F3 



BCC 

CLRSC2 



4555 

F7CC 

A9 

FF 



LDA 

#*FF 

;CLEAN UP LOGICAL LINE BIT MAP 


4556 

F7CE 

99 

B2 

02 

CLRSC3 

: STA 

LOGMAP;Y 

] (Y IS ZERO AFTER CLRSC2 LOOP 1 


4557 

F7D1 

C8 




I NY 




4558 

F7D2 

CO 

04 



CRY 

#4 



4559 

F7D4 

90 

F8 



BCC 

CLRSC3 



4560 

F7D6 

20 

E4 

FC 

HOME: 

JSR 

COLOR 

iPLACE COLORS AT LEFT EDGE 


4561 

F7D9 

85 

63 



STA 

LOGCOL 



4562 

F7DB 

85 

6D 



STA 

BUFSTR+1 



4563 

F7DD 

A9 

00 



LDA 

#0 







ERR 


LINE 

A DDR 

B1 

B2 

B3 B4 
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4564 

F7DF 

85 

54 



STA 

RQWCRS 



4565 

F7E1 

85 

56 



STA 

COLCRS+1 



4566 

F7E3 

85 

6C 



STA 

BUFSTR 



4567 

F7E5 

60 




RTS 




4568 





j 





4569 

F7E6 

A5 

63 


BS: 

LDA 

LOGCOL 

* BACKSPACE 


4570 

F7E8 

C5 

52 



CNF 

LMARGN 



4571 

F7EA 

F0 

21 



BEG 

BS1 



4572 

F7EC 

A5 

55 


B3A: 

LDA 

COLORS 

iLEFT EDGE? 


4573 

F7EE 

05 

52 



CMP 

LMARGN 



4574 

F7F0 

DO 

03 



BNE 

BS3 

s NO 


4575 

F7F2 

20 

73 

FC 


JSR 

DELTIM 

j YES* BEE IF LINE SHOULD BE DELETED 


4 576 

F7F5 

20 

99 

F7 

BS3: 

JSR 

CRSRLF 



4577 

F7F3 

A5 

55 



LDA 

COLORS 



4578 

F7FA 

05 

53 



CMP 

RMARGN 



4579 

F7FC 

DO 

07 



BNE 

BS2 



4580 

F7FE 

A5 

54 



LDA 

RQWCRS 



4581 

F800 

FO 

03 



BEQ 

BS2 



4582 

F802 

20 

7F 

F7 


JSR 

CRSRUP 



4583 

F805 

A9 

20 


BS2: 

LDA 

#$20 

, MAKE BACKSPACE DESTRUCTIVE 


4584 

F807 

8D 

FB 

02 


STA 

AT AC HR 



4585 

F80A 

20 

EG 

F5 


JSR 

OUTPLT 



4586 

F30D 

40 

DD 

FB 

ft SI : 

JMP 

DOLCOL 

v AND RETURN 


4587 

F810 

20 

AA 

F7 

TAB: 

JSR 

CRSRRT 

>BEGIN SEARCH 


4588 

FS13 

A5 

55 



LDA 

COLORS 

iTEST FOR NEW LINE 


4589 

F81 5 

05 

52 



CMP 

LMARGN 



4590 

FS17 

DO 

OA 



BNE 

TAB1 

; NO 


4591 

F819 

20 

34 

FA 


JSR 

DQCR 

i DG CARRIAGE RETURN 


4592 

F81C 

20 

20 

FB 


JSR 

LOGGET 

;CHECK IF END OF LOGICAL LINE 


4593 

F81F 

90 

02 



BCC 

TAB 1 

;NO* CONTINUE 


4594 

F821 

BO 

07 



BOS 

TAB2 

» (UNCONDITIONAL) 


4595 

F823 

A5 

63 


TAB!. 

LDA 

LOGCOL 

;CHECK FOR TAB STOP 


4596 

F825 

20 

25 

FB 


JSR 

BITGET 



4597 

F828 

90 

E6 


. 

BCC 

TAB 

* NO, SO KEEP LOOKING 


4598 

F82A 

40 

DD 

FB 

TABS: 

JMP 

DOLCOL 

iCOLVERT ROW AND COL TO LOGCOL AND RETURN 

4599 

F82D 

A5 

63 


SETTAB: 

LDA 

LOGCOL 



4600 

F82F 

4C 

06 

FB 


JMP 

BITSET 

;SET BIT IN MAP AND RETURN 


4601 

F832 

A5 

63 


CLRTAB: 

LDA 

LOGCOL 



4602 

F834 

4C 

12 

FB 


JMP 

BITCLR 

;CLEAR " " *. 


4603 

F837 

20 

9D 

FC 

INSCHR: 

JSR 

PHACRS 



4604 

F83A 

20 

A2 

F5 


JSR 

GETPLT 

;GET CHARACTER UNDER CURSOR 


4605 

F83D 

85 

7D 



STA 

INSDAT 



4606 

F83F 

A9 

00 



LDA 

#0 



4607 

F841 

8D 

BB 

02 


STA 

SCRFLG 



4608 

F844 

20 

FF 

F5 

INSCH4: 

JSR 

0UTCH2 

/STORE DATA 


4609 

F847 

A5 

63 



LDA 

LOGCOL 

/SAVE LOGCOL: IF AFTER INCRSA LOGCOL 

IS 

4610 

F849 

48 




PHA 


t< THAN IT IS NOW, END LOOP 


4611 

F84A 

20 

DC 

F9 


JSR 

INCRSA 

.SPECIAL INCRSR ENTRY POINT 


4612 

F84D 

68 




PLA 




4613 

F84E 

05 

63 



CMP 

LOGCOL 



4614 

F850 

BO 

DC 



BCS 

INSCH3 

/ QUIT 


4615 

F852 

A5 

7D 


INSCHI: 

LDA 

INSDAT 

/KEEP GOING 


4616 

F854 

48 




PHA 




4617 

F855 

20 

A2 

F5 


JSR 

GETPLT 







ERR LINE ADDR B1 152 B3 B4 


DISPLAY 


4618 

F858 

85 

7D 



STA 

4619 

F85A 

68 




PLA 

4620 

FS5B 

4C 

44 

F8 


JMP 

4621 

F85E 

20 

A8 

FC 

INSCH3: 

JSR 

4622 

F861 

CE 

m 

02 

INSCH6: 

DEC 

4623 

F864 

30 

04 



BMI 

4624 

F866 

C6 

54 



DEC 

4625 

F868 

DO 

F7 



BNE 

4626 

F86A 

4C 

DD 

FB 

INSCH5: 

JMP 

4627 





i 


4628 





i 


4629 

F86D 

20 

9D 

FC 

DELCHR: 

JSR 

4630 

F870 

20 

47 

F9 

DELCH1: 

JSR 

4631 

F873 

A5 

64 



LDA 

4632 

F875 

85 

68 



STA 

4633 

F877 

A5 

65 



LDA 

4634 

F879 

85 

69 



STA 

4635 

F87B 

coin 

A5 

A O 

63 



LDA 

DUA 

4636 

4637 

r o / JL? 
F87E 

Arbi 

20 

D4 

F9 


rrin 

JSR 

4638 

F881 

68 




PLA 

4639 

F882 

C5 

63 



CMP 

4640 

F884 

BO 

10 



BCS 

4641 

F886 

A5 

54 



LDA 

4642 

F888 

CD 

BF 

02 


CMP 

4643 

F88B 

BO 

09 



BCS 

4644 

F88D 

20 

A2 

F5 


JSR 

4645 

F890 

AO 

00 



LDY 

4646 

F892 

91 

68 



STA 

4647 

F894 

FO 

DA 



BEG 

4648 

F896 

AO 

GO 


DELCH2: 

LDY 

4649 

F898 

98 




TYA 

4650 

F899 

91 

68 



STA 

4651 

F89B 

20 

68 

FC 


JSR 

4652 

F89E 

20 

A8 

FC 


JSR 

4653 

F8A1 

4C 

DD 

FB 


JMP 

4654 

F8A4 

38 



INSLIN: 

SEC 

4655 

F8A5 

20 

7B 

FB 

INSLXA 

JSR 

4656 

F8A8 

A5 

52 



LDA 

4657 

F8AA 

85 

55 



STA 

4658 

F8AC 

20 

47 

F9 


JSR 

4659 

F8AF 

A5 

64 



LDA 

4660 

FSB 1 

85 

68 



STA 

4661 

F8B3 

18 




CLC 

4662 

F8B4 

69 

28 



ADC 

4663 

FSB6 

85 

66 



STA 

4664 

F8B8 

A5 

65 



LDA 

4665 

F8BA 

85 

69 



STA 

4666 

F8BC 

69 

00 



ADC 

4667 

F8BE 

85 

67 



STA 

4668 

F8C0 

A6 

54 



LDX 

4669 

F8C2 

EO 

17 



CRX 

4670 

F8C4 

FO 

08 



BEG 

4671 

F8C6 

20 

4E 

FB 

INSLU: 

JSR 


10-30-70 


DISPLC 
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IIMSDAT 

INSCH4 
PLACRS 
SCRFLG 

INSCH5 i IF SCROLL OCCURRED 

ROWCRS # MOVE CURSOR UP 

INSCH& ,* (UNCGND) CONTINUE UNTIL SCRFLG IS MINUS 

DOLCOL iCOLVERT RON AND COL TO LOGCOL AND RETURN 


PHACRS 
CONVRT 
ADRESS 
SAVADR 
ADRESS 
SAVADR+1 
LOGCOL 

INCRSB i PUT CURSOR OVER NEXT CHARACTER 

LOGCOL iTEST NEW LOGCOL AGAINST OLD LOGCOL 

DELCH2 i IF OLD. GE. NEW THEN QUIT 

ROWCRS i IS ROW OFF SCREEN? 

BOTSCR 

DELCH2 jYES, SO QUIT 

GETPLT i GET DATA UNDER CURSOR 

#0 

<SAVADR)/Y >PUT IT IN PREVIOUS POSITION 
DELCH1 i AND LOOP (UNCONDITIONAL) 


(SAVADR) i Y 
DELTIA 
PLACRS 
DDLCOL 

EXTEND 
LMARGN 
COLCRS 
CONVRT 
ADRESS 
FRMADR 

#40 
TOADR 
ADRESS+i 
FRMADR+i 
#0 

TOADR+1 

ROWCRS i SET UP LOOP COUNTER 

#23 

INSLI2 

MOVLIN 


iCLEAR THE LAST POSITION 
jTRY TO DELETE A LINE 

t AND RETURN 

; NORMAL INSLIN PUTS t: l” INTO BIT MAP 
;ENTRY POINT FOR C-0 
j DO CARRIAGE RETURN (NO L.F) 

,GET ADDRESS 

;SET UP TO—40+FR0M (FROM * CURSOR) 


i GET DATA TO THE RIGHT OF THE CURSOR 
,SAVE ADRESS TO KNOW WHERE TO PUT DATA 



ERR LINE 

ADDR 

B 1 

B2 

B3 B4 
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4672 

FSC9 

E8 




I NX 




4673 

F8CA 

EG 

17 



CPX 

#23 



4674 

F8CC 

DO 

F8 



BNE 

IN3LI1 



4675 

F8CE 

20 

9B 

FB 

INSLI2: 

JSR 

CLRLIN 

.CLEAR CURRENT LINE 


4676 

F8D1 

4C 

DD 

FB 


JMP 

DOLCOL 

,COLVERT ROW AND COL TO LOGCOL AND 

RETURN 

4677 

F8D4 

20 

DD 

FB 

DELLIN: 

JSR 

DOLCOL 

;GET BEGINNING OF LOG LINE (HOLD!) 


4678 

F8D7 

A4 

51 


DELLIA: 

LDY 

H0L.D1 

iSQUEEZE BIT MAP 


4679 

F8D9 

84 

54 



STY 

ROWCRS 

.PUT CURSOR THERE 


4680 

F8DB 

A4 

54 


DELLIB. 

LDY 

ROWCRS 



4681 

F8DD 

9S 



DELLI1 

TYA 




4682 

FBDE 

38 




SEC 




4683 

F8DF 

20 

23 

FB 


JSR 

L02GET 

iGET NEXT BIT 


4684 

F8E2 

08 




PHP 




4685 

F8E3 

98 




TYA 




4686 

F8E4 

18 




CLC 




4687 

F8E5 

69 

78 



ADC 

#120 



4688 

F8E7 

2B 




PLP 




4689 

F8E8 

20 

04 

FB 


JSR 

BITPUT 

.WRITE IT OVER PRESENT BIT 


4690 

F8EB 

cs 




I NY 




4691 

F8EC 

CO 

18 



CPY 

#24 



4692 

F8EE 

DO 

ED 



BNE 

DELL11 

i LOOP 


4693 

FSF'O 

AD 

B4 

02 


LDA 

LQGMAP+-2 

\SET LSB 


4694 

F0F3 

09 

01 



ORA 

#1 



4695 

F 3F5 

8D 

B4 

02 


STA 

LOCMAP+2 



4696 

F8F8 

A5 

52 


BELLI2: 

LDA 

LMARGN 

#DELETE LINE OF DATA USING PART OF 

SCROLL 

4697 

F8FA 

85 

55 



STA 

COLORS 

;CR NO LF 


4698 

F8FC 

20 

47 

F9 


JSR 

CONORT 



4699 

F8FF 

20 

B7 

FB 


JSR 

SCRQL1 



4700 

F902 

20 

20 

FB 


JSR 

LOGGET 

.TEST NEXT LINE FOR CONTINUATION 


4701 





i IS IT 

A NEW 

LOG LINE? 



4702 

F905 

90 

D4 



BCC 

DELLIB 

,NO SO DELETE ANOTHER 


4703 

F907 

4C 

DD 

FB 


JMP 

DOLCOL 

i YES SO DOLCOL AND RETURN 


4704 

F90A 

AO 

20 


BELL: 

LDY 

#*20 



4705 

F90C 

20 

D8 

FC 

BELLI 

JSR 

CLICK 



4706 

F9QF 

8S 




DEY 




4707 

F910 

10 

FA 



BPL 

BELLI 



4708 

F912 

60 




RTS 
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4709 





. PAGE 




4710 




> 





4711 




i 





4712 




i ROUTINES 




4713 




J 





4714 




5 





4715 




i DOUBLE 

BYTE 

DECREMENT OF 

INDIRECT POINTER 


4716 




;INCLUDING DB 

SUBTRACT AND 

DB DOUBLE DECREMENT 


4717 




) 





4718 

F93 3 

A9 

02 

DBDDEC: 

LDA 

#2 



4719 

F915 

DO 

OA 


BNE 

DBSUB 

;(UNCONDITIONAL) 


4720 




j 





4721 




> STORE 

DATA 

INDIRECT AND 

DECREMENT POINTER 


4722 




; (PLACED HERE TO SAVE JMP 

DBDEC AFTER STORE) 


4723 

F917 

A4 

4C 

STORE: 

LDY 

DSTAT 

\RETURN ON ERROR 


4724 

F919 

30 

2B 


CM I 

STROK 



4725 

F91B 

AO 

00 


LDY 

#0 



4726 

F91D 

91 

64 

STORE1: 

STA 

(ADRESS)j Y 

rscrorHCTMT Awn dctiidki 


4727 

4728 





JMP 

DBDEC 

Ufc. LrKfcr.ntr.W i hNU Pit i tim'i 


4729 

F91F 

A9 

01 

DBDEC: 

LDA 

#1 



4730 

F921 

8D 

9E 

02 DBSUB: 

STA 

SUBTMP 



4731 

F924 

A5 

4C 


LDA 

DSTAT 

; RETURN ON ERROR 


4732 

F926 

30 

IE 


BMI 

STROK 



4733 

F928 

A5 

64 


LDA 

ADRESS 



4734 

F92A 

38 



SEC 




4735 

F92B 

ED 

9E 

02 

SBC 

SUBTMP 



4736 

F92E 

85 

64 


STA 

ADRESS 



4737 

F930 

BO 

02 


BCS 

DBSUB1 



4738 

F932 

C6 

65 


DEC 

ADRESS+1 



4739 

F934 

A5 

OF 

DBSUB1: 

LDA 

APPMHI+1 

; MAKE SURE NOTHING EVER OVERWRITES APPMHI 

4740 

F936 

C5 

65 


CMP 

ADRESS+1 



4741 

F938 

90 

OC 


BCC 

STROK 

; OK 


4742 

F93A 

DO 

06 


BNE 

STRERR 

f ERROR 


4743 

F93C 

A5 

OE 


LDA 

APPMHI 



4744 

F93E 

C5 

64 


CMP 

ADRESS 



4745 

F940 

90 

04 


BCC 

STROK 



4746 

F942 

A9 

93 

STRERR: 

LDA 

4SCRHEM 

i SHOW MEM TOO SMALL FOR SCREEN 

ERROR 

4747 

F944 

85 

4C 


STA 

DSTAT 



4748 

F946 

60 


STROK: 

RTS 




4749 




i 





4750 




X 





4751 




i 





4752 




i CONVERT ROW/COLUMN CURSOR INTO REAL ADDRESS (FROM SAVMSC 

ON UP) 

4753 









4754 

F947 

A5 

54 

CONVRT: 

LDA 

RGWCRS 

,SAVE CURSOR 


4755 

F949 

48 



PHA 




4756 

F94A 

A 5 

55 


LDA 

COLORS 



4757 

F94C 

48 



PHA 




4758 

F94D 

A5 

56 


LDA 

COLCRS+1 



4759 

F94F 

48 



PHA 




4760 

F950 

20 

F3 

FC 

JSR 

PUTMSC 



4761 

F953 

A5 

54 


LDA 

ROWCRS 

i PUT 10*R0WC,RS INTO MLTTMP 


4762 

F955 

85 

66 


STA 

MLTTMP 
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4763 

F957 

A9 

00 



LDA 

#0 


4764 

F959 

85 

67 



STA 

MLTTMP+1 


4765 

F95B 

A5 

66 



LDA 

MLTTMP 

, QUICK X8 

4766 

F95D 

0A 




ASL 

A 


4767 

F95E 

26 

67 



ROL 

MLTTMP+1 


4768 

F960 

85 

51 



STA 

HOLD 1 

, (SAVE 2X VALUE) 

4769 

F962 

A4 

67 



LDY 

MLTTMP+1 

n if 

4770 

F964 

8C 

9F 

02 


STY 

H0LD2 

t *' " 

4771 

F967 

OA 




ASL 

A 


4772 

F968 

26 

67 



ROL 

MLTTMP+1 


4773 

F96A 

OA 




ASL 

A 


4774 

F96B 

26 

67 



ROL 

MLTTMP+1 


4775 

F96D 

18 




CLC 


i ADD IN 2X 

4776 

F96E 

65 

51 



ADC 

H0LD1 


4777 

F970 

85 

66 



STA 

MLTTMP 


4778 

F972 

A5 

67 



LDA 

MLTTMP+1 


4779 

F974 

6D 

9F 

02 


ADC 

HOLDS 


4780 

F977 

85 

67 



STA 

MLTTMP+1 


4781 

F979 

A6 

57 



LDX 

DINDEX 

>NOW SHIFT MLTTMP LEFT DHLINE TIMES TO FINIS 

4782 

F97B 

BC 

81 

FE 


LDY 

ONLINE, X 

JMULTIPLY 

4783 

F97E 

88 



CONOR 1: 

DEY 


} LOOP N TIMES 

4784 

F97F 

30 

07 



BMI 

CONOR2 


4785 

F981 

06 

66 



ASL 

MLTTMP 


4786 

F983 

26 

67 



ROL 

MLTTMP+1 


4787 

F985 

4C 

7E 

F9 


JMP 

CONOR1 


4788 

F988 

BC 

A5 

FE 

CONOR2: 

LDY 

DIVSTBiX 

>NOW DIVIDE HCRSR TO ACCOUNT FOR PARTIAL BYT 

4789 

F98B 

A5 

55 



LDA 

COLORS 


4790 

F98D 

A2 

07 



LDX 

#7 

TRICKY * 

4791 

F98F 

88 



CONOR3: 

DEY 



4792 

F990 

30 

OA 

4 


BMI 

CONOR4 


4793 

F992 

CA 




DEX 



4794 

F993 

46 

56 



LSR 

CQLCRS+1 


4795 

F995 

6A 




ROR 

A 


4796 

F996 

6E 

A1 

02 


ROR 

TMPLBT 

>SAVE LOW BITS FOR MASK 

4797 

F999 

4C 

8F 

F9 


JMP 

CONOR3 


4798 

F99C 

C8 



C0NVR4: 

I NY 


jSO Y IS ZERO UPON RETURN FROM THIS ROUTINE 

4799 

F99D 

18 




CLC 



4800 

F99E 

65 

66 



ADC 

MLTTMP 

.ADD SHIFTED COLORS TO MLTTMP 

4801 

F9A0 

85 

66 



STA 

MLTTMP 


4802 

F9A2 

90 

02 



BCC 

CONORS 


4803 

F9A4 

E6 

67 



INC 

ML.TTMP+1 


4804 

F9A6 

38 



CONORS: 

SEC 


;* TRICKY * 

4805 

F9A7 

6E 

Ai 

02 

CONOR6 

RGR 

TMPLBT 

;SLIDE A "1" UP AGAINST LOW BITS (CONTINUE T 

4806 

F9AA 

18 




CLC 



4807 

F9AB 

CA 




DEX 


iAND FINISH SHIFT SO LOW BITS ARE 

4808 

F9AC 

10 

F9 



BPL 

CONOR6 

iRIGHT JUSTIFIED. 

4809 

F9AE 

AE 

Al 

02 


LDX 

TMPLBT 

'TMPLBT IS NOW THE INDEX INTO DMASKTB 

4810 

F9B1 

A5 

66 



LDA 

MLTTMP 

> PREPARE FOR RETURN 

4811 

F9B3 

18 




CLC 



4812 

F9B4 

65 

64 



ADC 

ADRESS 


4813 

F9B6 

85 

64 



STA 

ADRESS 


4814 

F9B8 

85 

5E 



STA 

OLDADR 

iREMEMBER THIS ADDRESS FOR CURSOR 

4815 

F9BA 

A5 

67 



LDA 

MLTTMP+1 


4816 

F9BC 

65 

65 



ADC 

ADRESS+1 
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4817 

F9BE 

85 

65 



STA 

ADRESS+t 

4818 

F9C0 

85 

5F 



STA 

OLDADR+1 

4319 

F9C2 

BD 

Bl 

FE 


LDA 

DMABKT, X 

4820 

F9C5 

8D 

AO 

02 


STA 

DMASK 

4821 

F9C8 

85 

6F 



STA 

SHFAMT 

4822 

F9CA 

68 




PLA 


4823 

F9CB 

85 

56 



STA 

COLCRS+i 

4824 

F9CD 

68 




PLA 


4825 

F9CE 

85 

55 



STA 

COLORS 

4826 

F9D0 

68 




PLA 


4827 

F9D1 

85 

54 



STA 

ROWCRS 

4828 

F9D3 

60 




RTS 


4829 





r 



4830 





i 



4331 





j INCREMENT 

CURSOR AND D! 

4832 








4833 

F9D4 

A9 

00 


INCRSB: 

LDA 

#0 

4834 

F9D6 

FO 

02 



BEG 

_ INCRSC 

4835 

F9D8 

A9 

9B 


INCRSR: 

LDA" 

#*9B 

4836 

F9DA 

85 

7D 


INCRSC: 

STA 

INSDAT 

4837 

F9DC 

E6 

63 


INCRSA: 

INC 

LOGCOL 

4338 

F9DE 

E6 

55 



INC 

COLORS 

4839 

F9E0 

DO 

02 



BNE 

INCRS2 

4840 

F9E2 

E6 

56 



INC 

COLCRS+X 

4841 

F9E4 

A5 

55 


INCRS2: 

LDA 

COLORS 

4842 

F9E6 

A6 

57 



LDX 

DINDEX 

4343 

F9E8 

DD 

8D 

FE 


CMP 

COLUMN,X 

4844 

F9EB 

FO 

OB 



BEG 

INC2A 

4845 

F9ED 

EO 

00 



CPX 

#0 

4846 

F9EF 

DO 

06 



BNE 

INCRS3 

4847 

F9F1 

C5 

53 



CMP 

RMARGN 

4848 

F9F3 

FO 

02 



BEG 

INCRS3 

4849 

F9F5 

BO 

01 



BCS 

I NO 2 A 

4850 

F9F7 

60 



XNCRS3: 

RTS 


4851 

F9F8 

EO 

08 


INC2A: 

CPX 

#8 

4852 

F9FA 

90 

04 



BCC 

D0CR1 

4853 

F9FC 

A5 

56 



LDA 

COLCRS+i 

4854 

F9FE 

FO 

F7 



BEG 

XNCRS3 

4855 

FAOO 

A5 

57 


DCjCRI: 

LDA 

DINDEX 

4856 

FA02 

DO 

30 



BNE 

DOCR 

4857 

FA04 

A5 

63 



LDA 

LOGCOL 

4858 

FA06 

C9 

51 



CMP 

#81 

4859 

FA08 

90 

OA 



BCC 

DOCRIB 

4860 

FAOA 

A5 

70 



LDA 

INSDAT 

4861 

FAOC 

FO 

26 



BEG 

DOCR 

4862 

FAOE 

20 

30 

FA 


JSR 

DOCRWS 

4863 

FAi 1 

4C 

77 

FA 


JMP 

INCRS1 

4864 

FA14 

20 

34 

FA 

DQCR1B: 

JSR 

DOCR 

4865 

FA17 

A5 

54 



LDA 

ROWCRS 

4866 

FA19 

18 




CLC 


4867 

FAI A 

69 

78 



ADC 

#120 

4868 

FA 1C 

20 

25 

FB 


JSR 

BITGET 

4869 

FA1F 

90 

08 



BCC 

DOCR1A 

4870 

FA21 

A5 

7D 



LDA 

INSDAT 


T BOTH END OF LINE AND END OF SCREEN 
iNON-EXTEND ENTRY POINT 
»SPECIAL CASE ELIMINATOR 
,(INBCHR ENTRY POINT) 

;D0 HIGH BYTE 
' TEST END OF LINE 

;TEST TABLED VALUE FOR ALL SCREEN MODES 
i DO CR IF EQUAL 
!MODE 0? 

iIF NOT, JUST RETURN 
iTEST AGAINST RMARGN 
iEQUAL IS OK 
;IF GREATER THAN, DO CR 

;CHECK MODE 
i NOT 320X1 SO DO IT 
iTEST MSD 

* ONLY AT 64 SO DON'T DO IT 
;DQNT MESS WITH LOGMAP IF NO MODE ZERO 

;TEST LINE OVERRUN 

j IF LESS THAN 81 IT IS DEFINITELY NOT LINE 3 

iONLY DO LOG LINE OVERFLOW IF INSDAT OO 
iLOG LINE OVERFLOW IS SPECIAL CASE 
iRETURN 

;GET IT OVER WITH 

;TEST LOGICAL LINE BIT MAP 


i DONT EXTEND IF OVERRUN IS INTO MIDDLE OF LO 
iDONT EXTEND IF INSDAT IS ZERO 
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4S71 

FA23 

F0 

04 



BEQ 

D0CR1A 

,*(INSCHR SPECIAL CASE) 


4872 

FA25 

18 




CLC 


i INSERT "Q" INTO BIT MAP 


4873 

FA26 

20 

A 5 

FS 


USR 

INSLIA 



4874 

FA29 

4C 

DD 

FB 

D0CR1A: 

JMP 

DDLCOL 

; CONVERT ROW AND COL TO LOGCOL AND 

RETURN 

4875 

FA2C 

A9 

00 


NOSCRL: 

LDA 

#0 

iDOCR WITHOUT SCROLL 


4876 

FA2E 

FO 

02 



BEQ 

NOSCRl 

;(UNCONDITIONAL) 


4877 

FA30 

A9 

9B 


DOCRWS; 

LDA 

#$9 B 

i DOCR WITH SCROLLING (NORMAL MODE) 


4878 

FA 32 

85 

7D 


NOSCRl* 

STA 

INSDAT 



4879 

FA34 

20 

E4 

FC 

DOOR: 

JSR 

COLOR 

;PLACE COLORS AT LEFT EDGE 


4880 

FA 37 

A9 

00 



LDA 

#0 



4881 

FA39 

85 

56 



STA 

COLORS'*-1 



4882 

FA3B 

E6 

54 



INC 

RDWCRS 



4883 

FA3D 

A6 

57 


D0CR2: 

LDX 

DINDEX 



48S4 

FA3F 

AO 

18 



LDY 

#24 

i SET UP SCROLL LOOP COUNTER 


4385 

FA41 

24 

7B 



BIT 

SWPFLG 



4886 

FA43 

10 

05 



BPL 

D0CR2A 

iBRANCH IF NORMAL 


4887 

FA45 

AO 

04 



LDY 

#4 



4883 

FA47 

98 




TYA 




4889 

FA48 

DO 

03 



BNE 

D0CR2B 

, (UNCONDITIONAL) 


4890 

FA4A 

BD 

99 

FE 

D0CR2A: 

LDA 

NOROWS, X 

i GET NO OF ROWS 


4891 

FA4D 

C5 

54 


DDCR2B. 

CMP 

RDWCRS 



4892 

FA4F 

DO 

26 



BNE 

INCRS1 



4893 

FA51 

DC 

9D 

02 


STY 

HOLDS 



4894 

FA 54 

8A 




TXA 


*DONT SCROLL IF MODE O 0 


4895 

FA55 

DO 

20 



BNE 

INCRSI 



4896 

FA57 

A5 

7D 



LDA 

INSDAT 

j OR IF INSDAT = 0 


4897 

FA 59 

FO 

ic 



BEQ 

INCRS1 



4898 






LDA 

INSDAT 

IF INSDAT <> *9B THEN ROLL IN A 0 


4899 

FA5B 

09 

9B 



CMP 

#$9B 

i TO EXTEND BOTTOM LOGICAL LINE 


4900 

FA5D 

38 




SEC 




4901 

FA5E 

FO 

01 



BEQ 

D0CR4B 



4902 

FA 60 

18 




CLC 




4903 

FA61 

20 

AC 

FB 

D0CR4B: 

JSR 

SCROLL 

i LOOP BACH TO HERE IF >1 SCROLLS 


4904 

FA64 

EE 

BB 

02 


INC 

SCRFLG 



4905 

FA67 

C6 

60 



DEC 

3UFSTR 

i ROWS MOVE UP SO BUFSTR SHOULD TOO 


4906 

FA69 

CE 

90 

02 


DEC 

H0LD3 



4907 

FA6C 

AD 

B2 

02 


LDA 

LOGMAP 



4908 

FA6F 

38 




SEC 


JFOR PARTIAL LINES, ROLL IN A “l" 


4909 

FA70 

10 

EF 



BPL 

D0CR4B 

,AGAIN IF PARTIAL LOGICAL LINE 


4910 

FA72 

AD 

9D 

02 


LDA 

H0LD3 

,PLACE CURSOR AT MEW LINE NEAR THE 

BOTTOM 

4911 

FA.75 

85 

54 



STA 

RDWCRS 



4912 

FA77 

40 

DD 

FB 

INC RSI 

JMP 

DOLCOL 

■COLVERT ROW AND COL TO LOGCOL AND 

RETURN 

4913 





■ 





4914 





; 





4915 





; SUBEND: SUBTRACT ENDPT 

FROM ROWAC OR COLAC. (X=0 OR 2) 


4916 










4917 

FA7A 

38 



SUBEND: 

SEC 




4918 

FA7B 

B5 

70 



LDA 

ROUJACi X 



4919 

FA7D 

E5 

74 



SBC 

ENDPT 



4920 

FA7F 

95 

70 



STA 

ROWAC,X 



4921 

FAS 1 

B5 

71 



LDA 

ROWAC+li 

X 


4922 

FA83 

E5 

75 



SBC 

ENDPT+1 



4923 

FA85 

95 

71 



STA 

ROWAC+1, 

X 


4924 

FAB 7 

60 




RTS 
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4927 





; RANGE: 

DO 

CURSOR RANGE 

TEST. IF ERROR> POP STACK TWICE AND JMP RETURN 

492B 





;(ERANGE 

IS 

EDITOR ENTRY 

POINT AND TEST IF EDITOR IS OPEN. 


4929 





i IF IT I 

SNT 

IT OPENS THE 

EDITOR AND CONTINUES) 


4930 





, 





4931 

FA88 

AD 

BF 

02 

ERANGE 

LDA 

- BOTSCR 

;IF BOTSCR"4 


4932 

FA8B 

C9 

04 



CMP 

#4 



4933 

FA8D 

FO 

07 



BEG 

RANGE 

, THEN IT IS IN MIXED MODE AND OK 


4934 

FA8F 

A5 

57 



LDA 

DINBEX 

;IF MODE ^ 0 


4935 

FA91 

FO 

03 



BEG 

RANGE 

)THEN IT IS IN EDITOR- MODE AND OK 


4936 

FA93 

20 

FC 

F3 


JSR 

EOPEN 

iIF NOT, OPEN EDITOR 


4937 

FA96 

A9 

27 


RANGE: 

LDA 

#39 

i***** RANGE CHECK RMARGN -a*#** SET UP 

AC 

4938 

FA98 

C5 

53 



CMP 

RMARGN 

, **•»** RANGE CHECK RMARGN ***■*» COMPARE 

4939 

FA9A 

BO 

02 



ECB 

RANGES 

;***** RANGE CHECK RMARGN ***** BRANCH 

GE 

4940 

FA9C 

85 

53 



STA 

RMARGN 

; ***** RANGE CHECK RMARGN ***** BAD SO 

STORE 

4941 

FA9E 

A6 

57 


RANGES: 

LDX 

BINDEX 



4942 

FAAO 

BD 

99 

FE 


LDA 

NDRQWS, X 

\ CHECK ROWS. _ 


4943 

FA A3 

C5 

54 



CMP 

-ROWCRS 



4944 

FAA5 

90 

2A 



BCC 

RNGERR 

1(ERROR IF TABLE.GE.ROWCRS) 


4945 

FAA7 

FO 

28 



BEG 

RNGERR 



4946 

FAA9 

EO 

08 



CPX 

#8 

iCHECK FOR 320X1 


4947 

FA AS 

DO 

OA 



BNE 

RANGE1 

,SPECIAL CASE IT 


4948 

FAAD 

A5 

56 



LDA 

COLCRB+1 



4949 

FAAF 

FO 

13 



BEG 

RNGOK 

v IF HIGH BYTE IS 0, COL IS OK 


4950 

FAB1 

C9 

01 



CMP 

#1 



4951 

FAB 3 

DO 

1C 



BNE 

RNGERR 

; IF >L BAD 


4952 

FAB 5 

FO 

04 



BEG 

RANGE2 

,IF 1f GO CHECK LOW BYTE 


4953 

FAB7 

A5 

56 


RANGE1: 

LDA 

COLCRS-Kl. 

i FOR OTHERS, NON-ZERO HIGH BYTE IS BAD 


4954 

FAB9 

DO 

16 



BNE 

RNGERR 



4955 

FABB 

BD 

BD 

FE 

RANGE2: 

LDA 

COLUMNrX 

iCHECK LOW BYTE 


4956 

FABE 

C5 

55 



CMP 

COLORS 



4957 

FACO 

90 

OF 



BCC 

RNGERR 



4958 

FAC 2 

FO 

OD 



BEG 

RNGERR 



4959 

FAC4 

A9 

01 


RNGGK: 

LDA 

#SUCCES 

iSET STATUS OK 


4960 

FAC6 

85 

4C 



STA 

BSTAT 



4961 

FAC8 

A9 

30 



LDA 

#BRKABT 

iPREPARE BREAK ABORT STATUS 


4962 

FACA 

A6 

11 



LDX 

BRKKEY 

;CHECK BREAK KEY FLAG 


4963 

FA CC 

85 

11 



STA 

BRKKEY 

i 'CLEAR' BREAK 


4964 

FACE 

FO 

06 



BEG 

RNGER2 

;IF BREAK, QUIT IMMEDIATELY AND RETURN 

TO Cl 

4965 

FADO 

60 




RTS 




4966 

FAD1 

20 

D6 

F7 

RNGERR: 

JSR 

HOME 

ON RANGE ERROR, BRING CURSOR BACK 


4967 

FAD4 

A9 

8D 



LDA 

#CRSROR 

;SHOW CURSOR QVERRANGE ERROR 


4968 

FAD6 

85 

4C 


RNGER2: 

STA 

DSTAT 



4969 

FAD8 

68 



RNGER1: 

PLA 


;RESTORE STACK <THIS ROUTINE IS ALWAYS 

1 LEV 

4970 

FAB9 

68 




PLA 


;AWAY FROM RETURN TO CIO) 


4971 

FADA 

A5 

7B 



LDA 

SWPFLG 

;IF SWAPPED, SWAP BACK 


4972 

FA DC 

10 

03 



BPL 

RETUR3 



4973 

FADE 

20 

E9 

FC 


JSR 

SWAPA 

iAND DON"! DO RETUR1 


4974 

FAEi 

4C 

34 

F6 

RETUR3: 

JMP 

RETUR1 

iRETURN TO CIO 



□FFCRS: RESTORE OLD DATA UNDER CURSOR SO IT CAN BE MOVED 



ERR LINE 

ADDR 

B 1 

B2 

B3 B4 

DISPLAY 


HANDLER -- 10-30-78 *— DISPLC PAGE 

4979 





i 




4980 

FAE4 

AO 

00 


OFFCRS: 

LDY 

#0 

4981 

FAE6 

A5 

5D 



LDA 

OLDCHR 

4982 

FAE8 

91 

5E 



STA 

(OLDADR), Y 

4903 

FAEA 

60 




RTS 


4984 





i 




4985 





; 




4986 





i 




4987 





1 BITMAP 


ROUTINES: 

4988 





i 




4989 





i BJTCON 

PUT 

MASK IN BITMSK AND INDEX IN X 

4990 





4 BITPUT 

PUT 

CARRY INTO BITMAP 

4991 





> BITROL 

ROL 

CARRY INTO BOTTOM OF BITMAP (SCROLL) 

4992 





i BITSET 

SET 

PROPER BIT 

4993 





J BITCLR 

CLEAR PROPER BIT 

4994 





BITGET 

RETURN CARRY SET IF BIT IS THERE 

4995 





f LOGGET 

DO 

HTGET FOR LOGMAP INSTEAD OF TABMAP 

4996 









4997 

FAEB 

48 



BITCON: 

PHA 


4998 

FAEC 

29 

07 



AND 

#7 

4999 

FAEE 

AA 




TAX 

iGET MASK 

5000 

FAEF 

BD 

B9 

FE 


LDA 

MASKTB,X 

5001 

FAF2 

85 

6E 



STA 

BITMSK 

5002 

FAF4 

68 




PLA 

iPROCESS INDEX 

5003 

FAF5 

4A 




LSR 

A 

5004 

FAF6 

4A 




LSR 

A 

5005 

FAF7 

4A 




LSR 

A 

5006 

FAF8 

AA 




TAX 


5007 

FAF9 

60 




RTS 


5008 





( 




5009 





■ 




5010 

FAFA 

■ 2E 

B4 

02 

BITRPL: 

ROL 

LOGMAP+2 

501 1 

FAFD 

' 2E 

B3 

02 


ROL 

LOGMAP+1 

5012 

FB00 

2E 

B2 

02 


ROL 

LOGMAP 

5013 

FB03 

60 




RTS 


5014 





i 




5015 





j 




5016 

FB04 

90 

OC 


BITPUT: 

BCC 

BITCLR i AND RETURN 

5017 





; OTHERWISE FALL THROUGH TO BITSET AND RETURN 

5018 

FB06 

20 

EB 

FA 

BITSET: 


JSR 

BITCON 

5019 

FB09 

BD 

A3 

02 


LDA 

TABMAP,X 

5020 

FBOC 

05 

6E 



ORA 

BITMSK 

5021 

FBOE 

9D 

A3 

02 


STA 

TABMAP, X 

5022 

FBI! 

60 




RTS 


5023 





; 




5024 

FBI 2 

20 

EB 

FA 

BITCLR: 

JSR 

BITCON 

5025 

FB15 

A5 

6E 



LDA 

BITMSK 

5026 

FB17 

49 

FF 



EOR 

#*FF 

5027 

FB19 

3D 

A3 

02 


AND 

TABMAP, X 

5028 

FB 1C 

9D 

A3 

02 


STA 

TABMAP, X 

5029 

FBI F 

60 




RTS 


5030 





; 




5031 

FB20 

A5 

54 


LOGGET: 

LDA 

ROWCRS 

5032 

FB22 

18 



L01GET: 

CLC 




ERR LINE ADDR B1 B2 B3 B4 


DISPLAY HANDLER 


10-30-78 


DISPLC 


PAGE 115 


5033 

FB23 

69 

78 

5034 

FB25 

20 

EB FA 

5035 

FB28 

18 


5036 

FB29 

BD 

A3 02 

5037 

FB2C 

25 

6E 

5038 

FB2E 

FO 

01 

5039 

FB30 

38 


5040 

FB31 

60 


5041 




5042 




5043 




5044 




5045 




5046 




5047 

F1332 

AD 

FA 02 

5048 

FB35 

A4 

57 

5049 

FB37 

CO 

03 

5050 

FB39 

BO 

OF 

5051 

FB3B 

2A 


5052 

FB3C 

2A 


5053 

FB3D 

2A 


5054 

FI33E 

2A 


5055 

FB3F 

29 

03 

5056 

FB41 

AA 


5057 

FB42 

AD 

FA 02 

5058 

FB45 

29 

9F 

5059 

FB47 

ID 

FA FE 

5060 

FB4A 

8D 

FB 02 

5061 

FB4D 

60 


5062 




5063 




5064 




5065 




5066 




5067 




5068 




5069 

FB4E 

A9 

02 

5070 

FB50 

85 

65 

5071 

FB52 

A9 

47 

5072 

FB54 

85 

64 

5073 

FB56 

AO 

27 

5074 

FB58 

B 1 

66 

5075 

F35A 

85 

50 

5076 

FB5C 

B1 

68 

5077 

FB5E 

91 

66 

5078 

FB60 

A5 

50 

5079 

FB62 

91 

64 

5080 

FB64 

88 


5081 

FB65 

10 

FI 

5082 

FB67 

A5 

65 

5083 

FB69 

85 

69 

5084 

FB6B 

A5 

64 

5085 

FB6D 

85 

68 

5086 

FB6F 

18 



L02GET: ADC #120 

B'l'TGET: JSR BITCON 

CLC 

LDA TABMAP. X 

AND BITM3K 

BEQ BITGE1 

SEC 

BlTGEl,: RTS 


i INATAC: INTERNAL!CHAR) TO ATASC X I(ATACHR) CONVERSION 

INATAC: LDA CHAR 

LDY DINDEX i IF GRAPHICS MODES 

CPY #3 

BCS INATA1 iTHEN DONT CHANGE CHAR 

=RaL— =&= 

ROL A 

ROL A 

ROL A 

AND #3 

TAX 

LDA CHAR 

AND #»9F 

ORA INTATA, X 

INATA1 STA ATACHR 

RTS 


; MOVLIN: MOVE 40 BYTES AT FRMADR TO TOADR SAVING OLD TOADR 
; DATA IN THE LIN8UF. THEN MAKE NEXT FRMADR 
, BE AT LINBUF FOR NEXT TRANSFER & TQADR=TOADR+40 

MOVLIN LDA #LINBUF/256 ; SET UP ADRESS=LINBUF=$247 

STA ADRES3+1 

LDA ttLINBUF.AND. *FF 

STA ADRESS 

LDY #39 

MOVL11: LDA < TOADR). Y ;SAVE TO DATA 

STA TMPCHR 

LDA (FRMADR). Y iSTORE DATA 

STA (TOADR),Y 

LDA TMPCHR 

STA (ADRESS). Y 

DEY 

BPL MOVLII 

LDA ADRESS+1 ; SET UP FRMADR=LAST LINE 

STA FRMADR+1 

LDA ADRESS 

STA FRMADR 

CLC 


i ADD 40 TO TOADR 


ERR LINE 

ADDR 

B1 

B2 

B3 B4 

DISPLAY HANDLER 

: — 10“30"78 

— DISPLC PAGE 116 

5087 

FB70 

A5 

66 



LDA 

TOADR 


5088 

FB72 

69 

28 



ADC 

4*40 


5089 

FB74 

85 

66 



5TA 

TOADR 


5090 

FB76 

90 

02 



BCC 

N0VLI2 


5091 

FB78 

E6 

67 



INC 

TOADR+1 


5092 

FB7A 

60 



M0VLI2: 

RTS 



5093 





; 




5094 





f 




5095 





J 




5096 





s EXTEND: EXTENE 

1 BIT MAP FROM ROWCRS (EXTEND LOGICAL LINE 

5097 









5098 

FB7B 

OS 



EXTEND: 

PHP 


* SAVE CARRY 

5099 

FB7C 

AO 

17 



LDY 

#23 


5100 

FB7E 

98 



EXTEN1: 

TYA 



5101 

FB7F 

20 

22 

FB 


JSR 

L01GET 


5102 

FB82 

OS 




PHP 



5103 

FB83 

98 




TYA 



5104 

FB84 

18 




CLC 



5105 

FB85 

69 

79 



ADC 

#121 


5106 

FB87 

28 




PL P 



5107 

FB8S 

20 

04 

FB 


JSR 

BITPUT 


5108 

FB8B 

88 



EXTEN3: 

DEY 



5109 

FB8C 

30 

04 



BMI 

EXTEN4 


51 10 

FB8E 

C4 

54 



CPY 

ROWCRS 


5111 

FB90 

BO 

EC 



BCS 

EXTEN1 


5112 

FB92 

A5 

54 


EXTEN4: 

LDA 

ROWCRS 


5113 

FB94 

18 




CLC 



5114 

FB95 

69 

78 



ADC 

#120 


5115 

FB97 

28 




PLP 



51 16 

FB98 

4C 

04 

FB 


JMP 

BITPUT 

‘STORE NEW LINE'S BIT AND RETURN 

5117 









5118 









5119 









5120 





. CLRLIN: CLEAR 

LINE CURSOR 

IS ON 

5121 









5122 

FB9B 

A5 

52 


CLRLIN: 

LDA 

LMARGN 


5123 

FB9D 

85 

55 



STA 

COLORS 


5124 

FI39F 

20 

47 

F9 


JSR 

CONVRT 


5125 

FBA2 

AO 

27 



LDY 

#39 


5126 

FBA4 

A9 

00 



LDA 

#0 


5127 

FBA6 

91 

64 


CLRLI1: 

STA 

( ADRESS ), Y 


5128 

FBA8 

88 




DEY 



5129 

FBA9 

10 

FB 



BPL 

CLRLIi 


5130 

FBAB 

60 




RTS 



5131 









5132 





; 




5133 





; 




5134 





, 




5135 





, SCROLL: SCROLL SCREEN 


5136 





/ 




5137 

FBAC 

20 

FA 

FA 

SCROLL: 

JSR 

BITROL 

iROLL IN CARRY 

5138 

FBAF 

A5 

58 



LDA 

SAUMSC 

; SET UP WORKING REGISTERS 

5139 

FBB1 

85 

64 



STA 

ADRESS 


5140 

FBB3 

A5 

59 



LDA 

SAVMSC+1 



ERR LINE ADDR 131 B2 E3 B4 


DISPLAY HANDLER 


10-30-78 


DISPLC 


PAGE 117 


5141 

FBB5 

85 

65 



STA 

ADRESS+1 


5142 

FBB7 

AO 

28 


SCROLL 

LDY 

#40 

) LOOP 

5143 

FBB9 

B 1 

64 



LDA 

( ADRESS) / Y 


5144 

FBBB 

A6 

6A 



LDX 

RAMTOP 

;TEST FOR LAST LINE 

5145 

FBBD 

CA 




DEX 



5146 

FBBE 

E4 

65 



CPX 

ADREBS+i 


5147 

FBCO 

DO 

08 



BNE 

SCRQL2 


5149 

FBC2 

A2 

1)7 



LDX 

#*D7 


5149 

FBC4 

E4 

64 



CPX 

ADRESS 


5150 

FBC6 

EG 

02 



BCS 

SCR0L2 


5151 

FBC8 

A9 

00 



LDA 

#0 

;YES SO STORE ZERO DATA FOR 

5152 

FBCA 

AO 

00 


SCR0L2: 

LDY 

#0 


5153 

FBCC 

91 

64 



STA 

<ADRESS)*Y 


5154 

FBCE 

E6 

64 



INC 

ADRESS 


5155 

FBDO 

DO 

E5 



BNE 

SCROLI 


5156 

FBD2 

E6 

65 



INC 

ADRESS+i 


5157 

FBD4 

A 5 

65 



LDA 

ADRESS+1 


5158 

FBD6 

C5 

6A 



CMP 

RAMTOP 


5159 

FBD8 

DO 

DD 



BNE 

SCROLI 


“5160 

FBI) A 

4C 

DD 

FB 


JMP 

DOLCOL 

-TWNEr RETURN 

5161 





1 




5162 





i 




5163 





, DOLCOL: DO 

LOGICAL COLUMN 

FROM BITMAP AND COLORS 

5164 









5165 

FBDD 

A9 

00 


DOLCOL; 

LDA 

#0 

START WITH ZERO 

5166 

FBDF 

85 

63 



STA 

LOGCOL 


5167 

FBE1 

A 5 

54 



LDA 

ROWCRS 


5163 

FBE3 

85 

51 



STA 

H0LD1 


5169 

FBE5 

A5 

51 


D0LC01: 

LDA 

HOLD! 

iADD IN ROW COMPONENT 

5170 

FBE7 

20 

22 

FB 


JSR 

L01GET 


5171 

FBEA 

BO 

OC 



BCS 

DDLC02 

jFOUND BEGINNING OF LINE 

5172 

FBEC 

A5 

63 



LDA 

LOGCOL. 

}ADD 40 AND LOOK BACK ONE 

5173 

FBEE 

18 




CLC 



51.74 

FBEF 

69 

28 



ADC 

#40 


5175 

FBF1 

85 

63 



STA 

LOGCOL 


5176 

FBF3 

C6 

51 



DEC 

HOLD! 

iUP ONE LINE 

5177 

FBF5 

4C 

E5 

FB 


JMP 

D0LC01 


5173 

FBF8 

18 



D0LC03: 

CLC 


>ADD IN COLORS 

5179 

FBF9 

A5 

63 



LDA 

LOGCOL 


5180 

FBFB 

65 

55 



ADC 

COLORS 


5181 

FBFD 

85 

63 



STA 

LOGCOL 


51S2 

FBFF 

60 




RTS 




DOBUFC' COMPUTE BUFFER COUNT AS THE NUMBER OF BYTES FROM 
BUFSTR TO END OF LOGICAL LINE WITH TRAILING SPACES REMOVED 


20 9D FC 
A5 63 
48 

A5 6C 
85 54 
A5 6D 


DOBUFC JSR 
LDA 
PHA 
LDA 
STA 
LDA 


PHACRS 

LOGCOL 

BUFSTR 
ROWCRS 
BUFSTR+1 


,START 


RR LINE 

ADDR 

B1 

B2 

B3 B4 

DISPLAY HANDLER — 10-31 

5195 

FCOC 

85 

55 



STA 

COLORS 

5196 

FCOE 

A9 

01 



LDA 

#1 

5197 

FC 10 

85 

*B 



STA 

BUFCNT 

5198 

FC13 

A2 

17 


D0BUF1. 

LDX 

#23 

5199 

FC 14 

A5 

7B 



LDA 

SWPFLG 

5200 

FC 16 

10 

02 



BPL 

DQE1 

5201 

FC 18 

A2 

03 



LDX 

#3 

5202 

FC 1A 

E4 

54 


DOB1. 

CPX 

R0WCR3 

3203 

FC 1C 

DO 

03 



BNE 

D0BU1A 

5204 

FC IE 

A5 

55 



LDA 

COLORS 

5205 

FC20 

C5 

53 



CMP 

RMARGN 

5206 

FC22 

DO 

05 



BNE 

D0BU1A 

5207 

FC24 

E6 

6B 



INC 

BUFCNT 

5208 

FC26 

4C 

39 

FC 


JMP 

D0BUF2 

5209 

FC29 

20 

D4 

F9 

D0BU1A: 

JSR 

INCRSB 

5210 

FC2C 

E6 

6B 



INC 

BUFCNT 

5211 

FC2E 

A5 

63 



LDA 

LQGCOL 

5212 

FC30 

C5 

52 



CMP 

L.MARGN 

5213 

FC32 

DO 

DE 



BNE 

D0BUF1 

5214 

FC34 

C6 

54 



DEC 

RDWCRS 

5215 

FC36 

20 

99 

F7 


JSR 

CRSRLF 

5216 

FC39 

20 

A 2 

F5 

D0EUF2: 

JSR 

GETPLT 

5217 

FC3C 

DO 

17 



BNE 

D0BUF4 

5218 

FC3E 

C6 

6B 



DEC 

BUFCNT 

5219 

FC40 

A 5 

63 



LDA 

LQGCOL 

5220 

FC42 

C5 

52 



CMP 

LMARGN 

5221 

FC44 

FO 

OF 



BEQ 

D0BUF4 

5222 

FC46 

20 

99 

F7 


JSR 

CRSRLF 

5223 

FC49 

A5 

55 



LDA 

COLORS 

5224 

FC4B 

C5 

53 



CMP 

RMARGN 

5225 

FC4D 

DO 

02 



BNE 

D0BUF3 

5226 

FC4F 

.C6 

54 



DEC 

ROWCRS 

5227 

FC51 

' A5 

613 


D0BUF3: 

LDA 

BUFCNT 

5223 

FC 53 

DO 

E4 



BNE 

D0BUF2 

5229 

FC55 

63 



D0B1/F4: 

PLA 


5230 

FC 56 

85 

S3 



STA 

LQGCOL 

5231 

FC58 

20 

A3 

FC 


JSR 

PLACRS 

5232 

FC5B 

60 




RTS 


5233 





j 



5234 





i 



5235 





; 



5236 





5 



5237 





7 STREEG: MOVE 

BUFSTR TO 

5238 





j 



5239 

FC5C 

20 

DD 

FB 

STRBEG: 

JSR 

DOLCOL 

5240 

FC5F 

A5 

51 



LDA 

HOLD 1 

5241 

FC61 

35 

6C 



STA 

BUFSTR 

5242 

FC63 

A5 

52 



LDA 

LMARGN 

5243 

FC65 

85 

6D 



STA 

BUFSTR+1 

5244 

FC67 

60 




RTS 


5245 





j 



5246 








5247 








5249 









>-78 


DXBPLC 


PAGE 118 


jNORMAL 

iIF SWAPPED, ROW 3 IS THE LAST LINE ON SCREE 


TEST IF CRSR IS AT LAST SCREEN POSITION 


i VES SO FAKE INCRSR TO AVOID SCROLLING 


;NOT VET EOL 
,SACK UP ONE INCRSR 

pTEST CURRENT COLUMN FOR NON-ZERO DATA 
iGUir IF NON-ZERO 
; DECREMENT COUNTER 
3 BEGINNING OF LOGICAL LINE YET? 

; YES, SO QUIT 
;BACK UP CURSOR 

;IF LOGCOL-RMARGN* GO UP 1 ROW 


i LOOP UNLESS BUFCNT JUST WENT TO ZERO 


BEGINNING OF LOGICAL LINE. 


JUSE DGLCOL TO POINT HOLD! AT BOL 


ERR LINE 

ADDR 

Bi 

B2 

B3 B4 

DISPLAY HANDLER — 10-30-78 — DISPLC PAGE 

5249 





■ 



5250 





; DELTIM: TIME 

TO DELETE A LINE IF IT IS EMPTY AND AN EXTENSION 

5252 

FC68 

A5 

63 


DELTIA: 

LDA 

LOGCOL « IF LOGCGLOLMARGN 

5253 

FC6A 

C5 

52 



CMP 

LMARGN iTHEN OONT MOVE UP ONE 

5254 

FC6C 

DO 

02 



BNE 

DELTIB i LINE BEFORE TESTING DELTIM 

5255 

FC6E 

C6 

54 



DEC 

ROWCRS 

5256 

FC70 

20 

DC 

FB 

DELTIB: 

JSR 

DOLCOL 

5257 

FC73 

A5 

63 


DELTIM: 

LDA 

LOGCOL iTEST FOR EXTENSION 

5258 

FC75 

C5 

52 



CMP 

LMARGN 

5259 

FC77 

FO 

13 



BEG 

DEL.TI3 ;N0 

5260 

FC79 

20 

47 

F9 


JSR 

CQNVRT 

5261 

FC7C 

A5 

53 



LDA 

RMARGN ; SET UP COUNT 

5262 

FC7E 

38 




SEC 


5263 

FC7F 

E5 

52 



SBC 

LMARGN 

5264 

FC81 

A8 




TAY 


5265 

FC82 

Bl 

64 


DELTI1: 

LDA 

(ADRESS)jY 

5266 

526? 

FC84 

FC86 

DO 

uu. 

06 



BNE 

DE Y 

DELTI3 ;FOUND A NON-O SO QUIT AND RETURN 

5268 

FC87 

OQ . 

10 

F9 



BPL 

DELTI1 

5269 

FC89 

40 

DD 

F8 

DELTI2: 

JMP 

DELLIB , DELETE A LINE AND RETURN 

5270 

FC8C 

60 



DELTI3: 

RTS 


5271 








5272 





s 



5273 








5274 





; TSTCTL: SEARCH CNTRLS TABLE TO SEE IF ATACHR IS A CNTL CHAR 

5275 





3 



5276 

FC8D 

A2 

2D 


TSTCTL: 

LDX 

#45 jPREPARE TO SEARCH TABLE 

5277 

FCSF 

BD 

06 

FE 

T8TCT1. 

LDA 

CNTRLS*X 

5278 

FC92 

CD 

FB 

02 


CMP 

ATACHR 

5279 

FC95 

FO 

05 



BEG 

TSTCT2 

5280 

FC97 

CA 




DEX 


5281 

FC98 

CA 




DEX 


5282 

FC99 

CA 




DEX 


5283 

FC9A 

10 

F3 



BPL 

TSTCT1 

5284 

FC9C 

60 



TSTCT2: 

RTS 


5285 





j 



5286 





i 



5287 





J> 



5288 





i PUSH 

ROWCRS* 

COLORS AND CQLCRS+l 

5289 





i 



5290 

FC9D 

A2 

02 


PHACRS: 

LDX 

#2 

5291 

FC9F 

85 

54 


PHACR1. 

LDA 

ROWCRS*X 

5292 

FCA1 

9D 

B8 

02 


STA 

TMPROW*X 

5293 

FCA4 

CA 




DEX 


5294 

FCA5 

10 

FS 



BPL 

PHACRi 

5295 

FCA7 

60 




RTS 


5296 





i 



5297 





i 



5298 





i PULL 

CQLCRS+1< COLORS AND ROWCRS 

5299 





j 



5300 

FCA8 

A2 

02 


PLACRS; 

LDX 

#2 

5301 

FCAA 

BD 

BS 

02 

PLACR1. 

LDA 

TMPROW, X 

5302 

FCAD 

95 

54 



STA 

ROWCRS* X 



ERR LINE 

A DDR 

Bi 

B2 

5303 

FCAF 

CA 


5304 

FCBO 

10 

FB 

5305 

FCB2 

60 


5306 




5307 




5308 




5309 




5310 




5311 

FCB3 

20 

B9 

5312 

FCB6 

4C 

34 

5313 

FCB9 

AD 

BF 

5314 

FCBC 

C9 

18 

5315 

FCBE 

FO 

17 

5316 

FCCO 

A2 

OB 

5317 

FCC2 

05 

54 

5318 

FCC4 

48 


5319 

FCC5 

DD 

90 

5320 

FCCS 

95 

54 

w* v>3 21 

FCCA 

68 


5322 

FCCB 

9D 

90 

5323 

FCCE 

CA 


5324 

FCCF 

10 

Ft 


FCD1 

A 5 

7B 

5326 

FCD3 

49 

FF 

5327 

FCD5 

85 

7 B 

5328 

FCD7 

60 


5329 




5330 




5331 




5332 




5333 

FCD8 

A2 

7F 

5334 

FCDA 

8E 

IF 

5335 

FCDD 

BE 

DA 

5336 

FCEO 

CA 


5337 

FC El 

10 

P 7 

5338 

FCE3 

60 


5339 




5340 





133 B4 


FC 

F6 

02 


02 

02 


DO 

D4 


5341 


5342 


DISPLAY HANDLER — 10-30-78 — DISPLC PAGE 120 

DEX 

BPL PLACR1 

RTS 


> SWAP: 
SWAP: 


SWAPA: 


SWAP 1: 


SWAPS: 


, CLICK: 

CLICK: 
CLICK1 • 


IF MIXED MODE, SWAP TEXT CURSORS WITH REGULAR CURSORS 

USR SWAPA > THIS ENTRY POINT DOES RETUR1 

JMP RETUR1 

LDA DOT SCR 

CMP #24 

BEQ SWAP3 

LDX #11 

LDA ROWCRS, X 

PHA 

LDA TXTROW, X 

STA ROWCRS, X 

PLA 

STA TXTROW, X 

DEX 

BPL SWAP1 

LDA SWPFLO 

EOR #$FF 

STA SWPFLO 

RTS 


MAKE CLICK THROUGH KEYBOARD SPEAKER 


LDX 

#$7F 

STX 

CONSOL 

STX 

WSYNC 

DEX 


BPL 

CLICK! 

RTS 



COLOR: PUTS EITHER 0 OR LMARGN INTO COLORS BASED ON MODE AND SWPFLG 


5343 

FCE4 

A 9 

00 

COLOR 

LDA 

#0 

5344 

FCE6 

A6 

7B 


LDX 

SWPFLG 

5345 

FCE0 

DO 

04 


BNE 

COLOR 1 

5346 

FCEA 

A6 

57 


LDX 

DINDEX 

5347 

FCEC 

DO 

02 


BNE 

COLOR2 

5348 

FCEE 

A5 

52 

COLOR1: 

LDA 

LMARGN 

5349 

FCFO 

85 

55 

C0LCR2: 

STA 

COLORS 

5350 

C.r,c 4 

FCF2 

60 



RTS 



5351 


5352 

5353 

5354 


PUTMSC: PUT SAVMSC INTO ADRESS 


5355 FCF3 A5 58 

5356 FCF5 85 64 


PUTMSC: LDA SAVMSC ;SET UP ADDRESS 

STA ADRESS 


ERR LINE 

ADDR 

B1 

B2 B3 B4 

DISPLAY HANDLER — 10-30-/8 -- DIBPLC 

PAGE 

121 

5357 

FCF7 

A5 

59 

LDA SAVMSC-* I 



5358 

FCF9 

85 

65 

STA ADRE5S+1 



5359 

FCFB 

60 


RTS 



5360 




j 




ERR LINE 

ADDR 

B1 

B2 

B3 B4 

DISPLAY HANDLER — 10-30- 

78 -- DISPLC PAGE 

5361 






. PAGE 



5362 





j 




5363 





j 




5364 





i DRAW 

— DRAW 

A LINE FROM 

OLDROW, OLDCOL TO NEWROW,NEWCQL 

5365 





i (THE 

AL MILLER METHOD FROM BASKETBALL) 

5366 

FCFC 

A2 

00 


DRAW: 

LDX 

#0 


5367 

FCFE 

A5 

22 



LDA 

ICCOMZ 

; TEST COMMAND: SU-DRAW *12=*FILL 

5368 

FD00 

C9 

i 1 



CMP 

#$i 1 


5369 

FD02 

FO 

08 



BEQ 

DRAWA 


5370 

FD04 

C9 

12 



CMP 

#$12 

> TEST FILL 

5371 

FD06 

FO 

03 



BEQ 

DRAWB 

) YES 

5372 

FD08 

AO 

84 



LDY 

INVALID 

jNO, SG RETURN INVALID COMMAND 

5373 

FDOA 

60 




RTS 



5374 

FDOB 

E8 



DRAWB: 

INX 



5375 

FDOC 

3E 

B7 

02 

DRAWA: 

STX 

FILFLG 


5376 

FDOF 

A5 

54 



LDA 

ROWCRS 

i PUT CURSOR INTO NEWROW# NEWCQL 

5377 

FD11 

85 

60 



STA 

NEWROW 


5378 

FD13 

A5 

55 



IDA 

COLORS 


5379 

FDi 5 

85 

61 



STA 

NEWCQL 


5380 

FD17 

A5 

56 



LDA 

COLCRS+i 


5381 

FDI 9 

85 

62 



STA 

NEWCOL+1 


5382 

FD1B 

A9 

01 



LDA 

#1 


5383 

FD1D 

85 

79 



STA 

ROWING 

.SET UP INITIAL DIRECTIONS 

5384 

FD1F 

85 

7 A 



STA 

COLINC 


5385 

FD21 

38 




SEC 



5386 

FD22 

A5 

60 



LDA 

NEWROW 

i DETERMINE DELTA ROW 

5387 

FD24 

E5 

5A 



SBC 

OLDROW 


5388 

FD26 

85 

76 



STA 

DELTAR 


5389 

FD28 

BO 

OD 



acs 

DRAW1 

» DO DIRECTION AND ABSOLUTE VALUE 

5390 

FD2A 

A9 

FF 



LDA 

#*FF 

, BORROW WAS ATTEMPTED 

5391 

FD2C 

85 

79 



STA 

ROWING 

> SET DIRECTION—DOWN 

5392 

FD2E 

A5 

76 



LDA 

DELTAR 


5393 

FD30 

49 

FF 



EOR 

#$FF 

J DELTAR •= ! DELTAR ! 

5394 

FD32 

18 




CLC 



5395 

FD33 

69 

01 



ADC 

#1 


5396 

FD35 

85 

76 



STA 

DELTAR 


5397 

FD37 

38 



DR AW1: 

SEC 



5393 

F038 

A5 

61 



LDA 

NEWCOL 

, NOW DELTA COLUMN 

5399 

FD3A 

E5 

5B 



SBC 

OLDCOL 


5400 

FD3C 

85 

77 



STA 

DELTAC 


5401 

FD3E 

A5 

62 



LDA 

NEWCOL+1 

\ TWO-BYTE QUANTITY 

5402 

FD40 

E5 

5C 



SBC 

OLDCOL+1 


5403 

FD42 

85 

78 



STA 

DELTAC+1 


5404 

FD44 

BO 

16 



BCS 

DRAW2 

iDIRECTION AND ABSOLUTE VALUE 

5405 

FD46 

A9 

FF 



LDA 

#$FF 

J BORROW WAS ATTEMPTED 

5406 

FD48 

85 

7A 



STA 

COLINC 

J SET DIRECTION - LEFT 

5407 

FD4A 

A5 

77 



LDA 

DELTAC 


5408 

FD4C 

49 

FF 



EOR 

#$FF 

; DELTAC « i DELTAC 1 

5409 

FD4E 

85 

77 



STA 

DELTAC 


5410 

FD50 

A5 

78 



LDA 

DELTAC+1 


5411 

FD52 

49 

FF 



EOR 

#*FF 


5412 

FD54 

85 

78 



STA 

DELTAC+1 


5413 

FD56 

E6 

77 



INC 

DELTAC 

* ADD ONE FOR TWOS COMPLEMENT 

5414 

FD58 

DO 

02 



BNE 

DRAW2 



122 



ERR LINE ADDR Bi S2 B3 B4 


DISPLAY HANDLER — 10-30- 


5415 

FD5A 

E6 78 


INC 

DELTAC+1 

5416 

FD5C 

A2 02 

DRAW2: 

LDX 

#2 

5417 

FD5E 

AO 00 


LDY 

no 

5418 

FD60 

84 73 


STY 

COLAC+1 

5419 

FD62 

98 

DRAWSA: 

TYA 


5420 

FD63 

95 70 


3TA 

ROWAC, X 

5421 

FD65 

B5 5A 


LDA 

OLDROW,X 

5422 

FD67 

95 54 


STA 

RDWCRS,X 

5423 

FD69 

CA 


DEX 


5424 

FD6A 

10 F6 


BPL 

DRAW3A 

5425 

FD6C 

A5 77 


LDA 

DELTAC 

5426 




STA 

COUNTR 

5427 




STA 

ENDPT 

5428 

FD6E 

E8 


INX 


5429 

FD6F 

AS 


TAY 


5430 

FD70 

A5 78 


LDA 

DELTAC+1 

5431 

FD72 

85 7F 


STA 

COUNTR+1 

5432 

FD74 

r* T'i JL 

85 75 

rvrv 


STA 

rjKtp 

ENDPT+1 

DRAWS 

5433 

5434 

r JJ / o 

FD78 

DO OB 

A5 77 


LDA 

DELTAC 

5435 

FD7A 

C5 76 


CMP 

DELTAR 

5436 

FD7C 

BO 05 


BCS 

DRAW3 

5437 

FD7E 

A5 76 


LDA 

DELTAR 

5438 

FD80 

A2 02 


LDX 

#2 

5439 

FD82 

A8 


TAY 


5440 

FD83 

98 

DRAW3: 

TYA 


5441 

FD84 

85 7E 


STA 

COUNTR 

5442 

FD86 

85 74 


STA 

ENDPT 

5443 

FD88 

43 


PHA 


5444 

FD89 

A5 75 


LDA 

ENDPT+1 

5445 

FD8B 

4A 


LSR 

A 

5446 

FD8C 

68 


PLA 


5447 

FD8D 

6A 


ROR 

A 

5448 

FD8E 

95 70 


STA 

ROWAC,X 

5449 

FD90 

A 5 7E 

DRAW4A: 

LDA 

COUNTR 

5450 

FD92 

05 7F 


ORA 

COUNTR+1 

5451 

FD94 

DO 03 


BNE 

DRAW11 

5452 

FD96 

4C 42 FE 


UMP 

DRAW10 

5453 

FD99 

18 

DRAW11: 

CLC 


5454 

FD9A 

A5 70 


LDA 

ROWAC 

5455 

FD9C 

65 76 


ADC 

DELTAR 

5456 

FD9E 

85 70 


STA 

ROWAC 

5457 

FUAO 

90 02 


BCC 

DRAWS 

5458 

FDA2 

E6 71 


INC 

RGWAC+1 

5459 

FDA4 

A5 71 

DRAW5: 

LDA 

ROWAC+1 

5460 

FDA6 

C5 75 


CMP 

ENDPT+1 

5461 

FDA8 

90 14 


BCC 

DRAW6 

5462 

FDAA 

DO 06 


BNE 

DRAW5A 

5463 

FDAC 

A5 70 


LDA 

ROWAC 

5464 

FDAE 

C5 74 


CMP 

ENDPT 

5465 

FDBO 

90 OC 


BCC 

DRAW6 

5466 

FDB2 

18 

DRAW5A: 

CLC 


5467 

FDB3 

A5 54 


LDA 

ROWCRS 

5468 

FOB 5 

65 79 


ADC 

ROWING 


DISPLC 


PAGE 


, ZERO RAN FOR DRAW LOOP 


;FIND LARGER ONE (ROW DR COL) 
(PREPARE COUNTR AND ENDPT) 

;MAKE X 0 


AUTOMATICALLY LARGER IF M3D>0 

;LOW COL "LOW ROW? 

; YES 


:PUT IN INITIAL CONDITIONS 


;SAVE AC 

; PUT LSB OF HIGH BYTE 
i INTO CARRY 
j RESTORE AC 

, ROR THE 9 BIT ACUMULATOR 
.TEST ZERO 

;IF COUNTER IS ZERO, LEAVE DRAW 
; ADD ROW TO ROWAC (PLOT LOOP) 


iCOMPARE ROW TO ENDPOINT 
> IF HIGH BYTE OF ROW IS . LT HIGH 
jBYTE OF ENDPT, BLT TO COLUMN 


LOW BYTE 

ALSO BLT 

GE SO MOVE POINT 



ERR LINE 

ADOR 

B 1 

B2 

B3 B4 

DISPLAY HANDLER 

t —- 10-80“ 

-78 — DISPLC PAGE 

5469 

FDB7 

85 

54 



STA 

ROWCRS 


5470 

FDB9 

A2 

00 



LDX 

#0 

;AND SUBTRACT ENDPT FROM ROWAC 

5471 

FDBB 

20 

7A 

FA 


JSR 

SUBEND 


5472 

FDBE 

18 



DRAW6: 

CLC 


iDD SAME FOR COLUMN (DOUBLE BYTE ADD) 

5473 

FDBF 

A5 

72 



LDA 

CDLAC 

i ADD 

5474 

FOCI 

65 

77 



ADC 

DELTAC 


5475 

FDC3 

85 

72 



STA 

CQL.AC 


5476 

FDC5 

A5 

73 



LDA 

CGLAC+1 


5477 

FDC7 

65 

78 



ADC 

DELTAC+t 


5478 

FDC9 

85 

73 



STA 

COLAC+1 


5479 

FDCB 

C5 

75 



CMP 

ENDPT+1 

»COMPARE HIGH BYTF 

5480 

FOOD 

90 

27 



EC C 

DRAWS 


5481 

F-'DCF 

DO 

06 



BNE 

DRAW6A 


5482 

FDD1 

A5 

72 



LDA 

CDLAC 

iCOMPARE LOW BYTE 

5483 

FDD3 

05 

74 



CHP 

ENDPT 


5484 

FDD5 

90 

IF 



BCC 

DRAWQ 


5485 

FDD7 

24 

7A 


DRAW6A: 

BIT 

COLINC 

+ 

O 

X 

1 

54 86 

FDD9 

10 

10 



BPL 

DRAW6B 


5487 

FDDB 

C6 

55 



DEC 

COLORS 

;DO DOUBLE BYTE DECREMENT 

5488 

FDDD 

A5 

55 



LDA 

COLORS 


5489 

FDDF 

09 

FF 



CMP 

#*FF 


5490 

FDE1 

DO 

OE 



BNE 

DRAW? 


5491 

FDE3 

A 5 

56 



LDA 

COLCRS+1 


5492 

FDE 5 

FO 

OA 



BEG 

DRAW7 

; DON'T' DEC IF ZERO 

5493 

FDE 7 

C6 

56 



DEC 

COLCRS+1 


5494 

FDE9 

10 

06 



BPL 

DRAW? 

;(UNCONDITIONAL) 

5495 

FDEB 

E6 

55 


DRAW&B; 

INC 

COLORS 

;DO DOUBLE BYTE INCREMENT 

5496 

FOLD 

DO 

02 



BNE 

DRAW? 


5497 

FDEF 

E6 

56 



INC 

COLCRS+1 


5498 

FDF1 

A2 

02 


DRAW7; 

LDX 

#2 

,AND SUBTRACT ENDPT FROM CQLAC 

5499 

FDF3 

20 

7 A 

FA 


JSR 

SUEEND 


5500 

FDF6 

20 

96 

FA 

DRAWS: 

JSR 

RANGE 


5501 

FDF9 

20 

FO 

F5 


JSR 

OUTPLT 

iPLOT POINT 

5502 

FDFC 

AD 

B7 

02 


LDA 

FILFLG 

i TEST RIGHT FILL. 

5503 

FDFF 

FO 

2F 



BEG 

DRAW9 


5504 

FE01 

20 

90 

FC 


JSR 

PHACRS 


5505 

FE04 

AD 

FB 

02 


LDA 

ATACHR 


5506 

FE07 

8D 

BC 

02 


STA 

H0LD4 


5507 

FEOA 

A5 

54 


DRANSA: 

LDA 

R OWC R S 

,SAVE ROW IN CASE OF CR 

5508 

FEOC 

48 




PHA 



5509 

FEOD 

20 

DC 

F9 


JSR 

INCRSA 

iPOSITION CURSOR ONE PAST DOT 

5510 

FE10 

68 




PLA 


j RESTORE ROWCRS 

5511 

FE11 

85 

54 



STA 

ROWCRS 


5512 

FE13 

20 

96 

FA 

DRAW8C 

JSR 

RANGE 


5513 

FE 16 

20 

A 2 

F5 


JSR 

GETPLT 

JGET DATA 

5514 

FE19 

DO 

OC 



BNE 

DRAW8B 

,STOP IF NON-ZERO DATA IS ENCOUNTERED 

5515 

FE1B 

AD 

FD 

02 


LDA 

FILDAT 

iFILL DATA 

5516 

FE1E 

8D 

FB 

02 


STA 

ATACHR 


55x7 

FE21 

20 

EG 

F5 


JSR 

OUTPLT 

* DRAW IT 

5518 

FE24 

4C 

OA 

FE 


JMP 

DRAWSA 

i LOOP 

5519 

FE27 

AD 

BC 

02 

DRAW8E: 

LDA 

HGLD4 


5520 

FE2A 

8D 

FB 

02 


STA 

ATACHR 


5521 

FE2D 

20 

A8 

FC 


JSR 

PLACRS 


5522 

FE30 

38 



DRAW9. 

SEC 


> DO DOUBLE BYTE SUBTRACT 


ERR LINE 

ADDR 

Bt 

B2 

B3 B4 

DISPLAY HANDLER 

! — 10-30- 

5523 

FE31 

A5 

7E 


LDA 

COUNTR 

5524 

FE33 

E9 

01 


SBC 

#1 

5525 

FE35 

85 

7E 


STA 

COUNTR 

5526 

FE37 

A5 

7F 


LDA 

COUNTR+i 

5527 

FE39 

E9 

00 


SBC 

#0 

5528 

FE3B 

85 

7F 


STA 

COUNTR+1 

5529 

FE3D 

30 

03 


BMI 

DRAW10 

5530 

FE3F 

4C 

90 

FD 

JMP 

DRAW4A 

5531 

FE42 

4C 

34 

F6 

DRAN10: JMP 

RETUR1 


DISPLC 


PAGE 


125 
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5532 

5533 

5534 

5535 

5536 

5537 

5538 
553? 

5540 FE45 

5541 FE49 

5542 FE4D 

5543 

5544 

5545 

5546 

5547 FE51 

5548 FE55 

5549 FE59 

5550 FE5D 

5551 FE61 

5552 FE65 

5553 

5554 

5555 

5556 

5557 

5558 

5559 

5560 

5561 

5562 

5563 

5564 

5565 

5566 

5567 

5568 

5569 

5570 

5571 FE69 

5572 FE6D 

5573 FE71 

5574 

5575 

5576 

5577 

5578 

5579 FE75 

5580 FE79 

5581 FE7D 

5582 

5583 

5584 

5585 


18 10 0A OA 
10 1C 34 64 
C4 C4 C4 04 


17 17 OB 17 
2F 2F 5F 5F 
61 61 61 61 
13 13 0? 13 
27 27 4F 4F 
41 41 41 41 


02 06 07 08 
09 OA OB OD 
OF OF OF OF 


00 00 00 00 
00 00 00 01 
01 01 01 01 


PAGE 

i 

> TABLES 

i 

i MEMORY ALLOCATION 

i 

ALOCAT: . BYTE 24, 16, 10, 10, 16, 28, 52, 100, 196, 196, 196, 196 

; 

£ NUMBER OF DISPLAY LIST ENTRIES 

NUMDLE: . BYTE 23,23, 11,23,47, 47,95,95,97,97,97,97 

MXDMDE: BYTE 19,19,9,19,39,39,79,79,65,65,65,65 j (EXTENSION OF NUMDLE 


; ANTIC CODE FROM INTERNAL MODE CONVERSION TABLE 


INTERNAL 

0 

1 


ANTIC CODE 


DESCRIPTION 


A 

B 

D 

F 

SAME AS 8 BU 
SAME AS 8 BU 


40X2X8 
20X5X8 
20X5X16 
40X4X8 
80X2X4 
80X4X4 
160X2X2 
160X4X2 
320X2X1 
BUT GTIA 'LUM 
BUT GTIA "COL 


CHARACTERS 


GRAPHICS 


SAME AS 8 BUT GTIA 


LUM * MODE 
COL/LUM REGISTER' 
COLOR' MODE 


ANCONV: . BYTE 


6, 718,9,$A,$B, $D, $F,$F, $F,$F ,ZEROS FOR RANGE TEST IN 


; PAGE TABLE TELLS WHICH DISPLAY LISTS ARE IN DANGER OF 
i CROSSING A 256 BYTE PAGE BOUNDARY 

PAGETB: BYTE 0, 0, 0, 0, 0, 0, 0, 1, 1 1*1*1 


; THIS IS THE NUMBER OF LEFT SHIFTS NEEDED TO MULTIPLY 
i COLORS BY 10,20, OR 40. <R0WCRS*10>/<2**DHLINE> 







ERR LINE ADDR Bi 32 B3 B4 


DISPLAY HANDLER 
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PAGE 121 


5586 


5587 

FES1 

5589 

FES 5 

5589 

FE89 

5590 


5591 


5592 


5593 


5594 

FE8D 

5595 

FE91 

5596 

FE95 

5597 


5598 


5599 


5600 


5601 


5602 

FE99 

5603 

FE9D 

5604 

FEA1 

5605 


5606 


5607 


5608 


5609 


5610 


5611 

FEA5 

5612 

FEA9 

5613 

FEAD 

5614 


5615 


5616 


5617 


5618 

FEB1 

5619 

FEB5 

5620 


5621 


5622 


5623 

FEB9 

5624 

FEBD 

5625 


5626 


5627 


5628 


5629 

FECI 

5630 

FEC5 

5631 


5632 


5633 


5634 


5635 


5636 


5637 


5638 

FEC6 

5639 

FEC7 


05 01 01 00 
00 01 01 02 
02 02 02 02 


28 14 14 28 
50 50 AO AO 
40 50 50 50 


18 18 OC 18 
30 30 60 60 
CO CO CO CO 


00 00 00 02 
03 02 03 02 
03 01 01 01 


00 FF FO OF 
CO 30 OC 03 


80 40 20 10 
08 04 02 01 


28 CA 94 46 
00 


IB 

79 F7 


DHLINE: . BYTE 2. 1, i> 0 ? 0. 1, 1 , 2 , 2 , 2 , 2 , 2 

t 

i 

i COLUMN: NUMBER OF COLUMNS 

COLUMN: .BYTE 40,20,20,40,80.00,160,160,64,80,80.80 ; MODE 8 IS SPECIAL 


; NOROWS: NUMBER OF ROWS 

NOROWS: BYTE 24,24,12,24, 48.48, 96.96, 192, 192, 192, 192 


, DIV2TB: HOW MANY RIGHT SHIFTS FOR HCRSR FOR PARTIAL BYTE MODES 
DIV2TB: .BYTE 0, O, 0, 2, 3, 2, 3, 2, 3, 1, 1, 1 

! DMASKT: DISPLAY MASK TABLE 

DMASKT: .BYTE *00,*FF,*F0, *0F 

. BYTE SCO,*30, *0C, *03 

'i MASKTB: BIT MASK. (ALSO PART OF DMASKTB! DO NOT SEPARATE) 
MASKTB. .BYTE $80,*40.*20, *10,*08, *04,*02, *01 

J 

i 

C0LRT13: . BYTE $28, $CA, $94, $46, $00 

f 

J 

; 

l CNTRLS: CONTROL CODES AND THEIR DISPLACEMENTS INTO THE 
: CONTROL CHARACTER PROCESSORS 

i 

CNTRLS: . BYTE *1B 

.WORD ESCAPE 
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5640 

FEC9 

1C 


. BYTE 

*1C 

5641 

FECA 

7F 

F7 

. WORD 

CRSRUP 

5642 

FECC 

ID 


. BYTE 

*1D 

5643 

FECD 

BC 

F7 

WORD 

CRSRDN 

5644 

FECF 

IE 


BYTE 

* IE 

5645 

FEDO 

99 

F7 

WORD 

CRSRLF 

5646 

FED2 

IF 


. BYTE 

*1F 

5647 

FED3 

AA 

F7 

. WORD 

CRSRRT 

5648 

FED5 

7D 


BYTE 

*7D 

5649 

FEB6 

B9 

F7 

. WORD 

CLRSCR 

5650 

FEDS 

7E 


byte 

*7E 

5651 

FED9 

E6 

F7 

. WORD 

BS 

5652 

FEDB 

7F 


. BYTE 

*7F 

5653 

FEDC 

10 

F8 

WORD 

TAB 

5654 

FEDE 

9B 


. BYTE 

*9E 

5655 

FEDF 

30 

FA 

. WORD 

DOCRWS 

5656 

FEE1 

9C 


BYTE 

*9C 

5657 

FEE2 

D4 

F8 

WORD 

DELLIN 

5658 

FEE4 

9D 


BYTE 

*9D 

5659 

FEES 

A4 

FB 

, WORD 

INSLIN 

5660 

FEE? 

9E 


BYTE 

*9E 

5661 

FEES 

32 

F8 

. WORD 

CLRTAB 

5662 

FEE A 

9F 


. BYTE 

*9F 

5663 

FEEB 

2D 

FB 

WORD 

SETTAB 

5664 

FEED 

FD 


. BYTE 

*FD 

5665 

FEEE 

OA 

F9 

. WORD 

BELL 

5666 

FEFO 

FE 


. BYTE 

*FE 

5667 

FEF1 

6D 

F8 

WORD 

DELCHR 

5668 

FEF3 

FF 


BYTE 

*FF 

5669 

FEF4 

37 

FB 

WORD 

INSCHR 


5670 ; 

5671 j 

5672 ; 

5673 5 

5674 

5675 ; ATAINT: ATABCI TO INTERNAL TABLE 

5676 } 

5677 FEF6 40 00 20 60 ATAINT: . BYTE *40, *00, *20,*60 

5678 5 

5679 

5680 . INTATA: INTERNAL TO ATABC I TABLE 

5681 ? 

5682 FEFA 20 40 00 60 INTATA: . BYTE *20, *40, *00, *60 

5683 ; 

5684 

0685 , ATASCI’ ATASCII CONVERSION TABLE 

5686 

5687 FEFE 6C 6A 3B,80 ATASCI. .BYTE *6C>*6A, *3B, *80, *SQ, *6B, *2B, *2A ;LOWER CASE 

568B FF02 80 6B 2B 2A 

5689 FF06 6F 80 70 75 BYTE *6F, *80,*70,*75,*9B>*69,*2D, *2D 

5690 FFOA 69 2D 3D 

5691 FPOE 

5692 FFOE 76 80 63 80 

5693 FF12 80 62 78 7A 


BYTE 


*76, *80, *63, *80, *80, *62, *78: *7A 
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ERR LINE 

ADDR 

B 1 

B2 

B3 

B4 

5694 

FF16 

34 

SO 

33 

36 

5695 

FF1A 

IB 

35 

32 

31 

5696 

FF IE 





5697 

FF1E 

2C 

20 

2E 

6 E 

5698 

FF22 

80 

6 D 

2F 

81 

5699 

FF26 

72 

80 

65 

79 

5700 

FF2A 

7F 

74 

77 

71 

5701 

FF2E 





5702 - 

FF2E 

39 

80 

30 

37 

5703 

FF32 

7E 

38 

3C 

3E 

5704 

FF36 

66 

68 

64 

SO 

5705 

FF3A 

82 

67 

73 

61 

5706 

FF3E 





5707 

FF3E 





5708 

FF3E 

4C 

4A 

3A 

80 

5709 

FF42 

80 

4B 

5C 

5E 

5710 

FF'46 

4F 

80 

50 

55 

. 37-1 1 — 

FF4A 

9fr 

4 ^ 

- m 5£ m 

7r 

5712“ 

FF4E 





5713 

FF4E 

56 

30 

43 

80 

5714 

FF52 

SO 

42 

58 

5A 

5715 

FF56 

24 

80 

23 

26 

5716 

FF5A 

IB 

25 

22 

21 

5717 

FF5E 





5718 

FFSE 

5B 

20 

5D 

4E 

5719 

FF62 

so 

4D 

3F 

81 

5720 

FF 66 

52 

80 

45 

59 

5721 

FF 6 A 

9F 

54 

57 

51 

5722 

FF 6 E 





5723 

FF 6 E 

28 

SO 

29 

27 

5724 

FF 72 

9C 

40 

7D 

9D 

5725 

FF76 

46 

48 

44 

SO 

5726 

FF7A 

S3 

47 

53 

41 

5727 

FF7E 





5728 

FF7E 





5729 

FF7E 

OC 

OA 

7B 

80 

5730 

FF82 

80 

OB 

IE 

IF 

5731 

FFS 6 

OF 

80 

10 

15 

5732 

FF 8 A 

9B 

09 

1C 

ID 

5733 

FFSE 





5734 

FFSE 

16 

80 

03 

80 

5735 

FF92 

80 

02 

IS 

1A 

5736 

FF96 

80 

80 

85 

SO 

5737 

FF9A 

IB 

80 

FD 

SO 

5738 

FF9E 





5739 

FF9E 

00 

20 

60 

OE 

5740 

FFA2 

80 

GD 

SO 

81 

5741 

FFA 6 

12 

SO 

05 

19 

5742 

FFAA 

9E 

14 

17 

11 

5743 

FFAE 





5744 

FFAE 

80 

80 

SO 

80 

5745 

FFB2 

FE 

80 

7D 

FF 

5746 

FFB 6 

06 

08 

04 

80 

5747 

FFBA 

84 

07 

13 

01 
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BYTE $34, $80, $33, $36, $1B, $35, $32, $31 

BYTE $2C,$20, $2E, $ 6 £, $80, $6D,$2E,$81 
BYTE $72, $80, $65, $79, $7F, $74, $77, $71 

BYTE $39,$80,$30, $37, $7E, $38, $3C,$3E 
. BYTE $ 66 , $ 68 , $64, $80, $82, $67, $73, $61 

.BYTE $4C>$4A,$3A,$80, $80, $4B,$5C,$5E ;UPPER CASE 
. BYTE $4F, $80, $50, $55, $913, $49, $5F, $70 

. BYTE $56, $80, $43, $80, $80, $42, $58, $5A 

.BYTE $24,$80,$23, $26, $1B, $25, $22, $21 

BYTE $5B,$20,$5D, $4E, $80, $4D, $3F,$81 

BYTE $52,$80, $45, $59, $9F, $54, $57, $51 

. BYTE $28,$80, $29, $27, $9C, $40, $7D, $90 

BYTE $46,$48, $44, $80, $83, $47, $53, $41 

,BYTE $0C,$0A,$7B,$80,$80,$0B,$1E,$1F ;CONTROL 
BYTE $0F,$80, $10,$15, $9B, $09,$1C, $1D 

. BYTE $16, $80, $03, $80, $80, $02, $18, $1A 
. BYTE $80,$80,$85,$80, $10,$80,$FD,$80 

BYTE $00, $20, $60, $GE, $80, $0D, $80, $81 

BYTE $12, $80, $05, $19, $9E, $14, $17, $11 

, BYTE $80, $80, $80, $80, $FE, $80, $7D, $FF 

. BYTE 


129 


$06, $08, $04, $80, $84, $07, $13, $01 
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5748 









5749 





j 




5750 





j 




5751 





, 




5752 





t 




5753 

FF-BE 

AD 

09 

D2 

FIRGG: 

LDA 

KBCODE 


5754 

FFC1 

CD 

F2 

02 


CMP 

CHI 

i TEST AGAINST LAST KEY PRESSED 

5755 

FFC4 

DO 

05 



BNE 

PIRQ3 

i IF NOT, GO PROCESS KEY 

5756 

FFC6 

AD 

FI 

02 


LDA 

KEYDEL 

. IF KEY DELAY BYTE C- 0 

5757 

FFC9 

DO 

20 



BNE 

PIRG4 

, IGNORE KEY AS BOUNCE 

5758 

FFCB 

AD 

09 

D2 

PXR03. 

LDA 

KBCODE 

, RESTORE AC 

5759 

FFCE 

C9 

Qf 



CMP 

#CNTL1 

, TEST CONTROL I lSSFLAG) 

5760 

FFDO 

DO 

OA 



BNE 

PIRGI 


5761 

FFD2 

AD 

FF 

02 


LDA 

SSFLAG 


5762 

FFD5 

49 

FF 



EOR 

#*FF 


5763 

FFD7 

8D 

FF 

02 


STA 

SSFLAQ 


5764 

FFDA 

BO 

OF 



BCS 

PIRG4 

i (UNCONDITIONAL) MAKE ''1 INVISIBLE 

5765 

FFDC 

8D 

FC 

02 

PIRGi 

STA 

CH 


5766 

FFDF 

SD 

F2 

02 


STA 

CHI 


5767 

FFE2 

A9 

03 



LDA 

#3 


5768 

FFE4 

8D 

FI 

02 


STA 

KEYDEL 

,INITIALIZE KEY DELAY FOR DEBOUNCE 

5769 

FFE7 

A9 

00 



LDA 

#0 

,CLEAR COLOR SHIFT BYTE 

5770 

FFE9 

85 

4D 



STA 

ATRACT 


5771 

FFEB 

A9 

30 


FIRG4: 

LDA 

#*30 


5772 

FFED 

SD 

2B 

02 


STA 

SR T l MR 


5773 

FFFO 

68 



PIRG2; 

PLA 



5774 

FFF1 

40 




RTI 



5775 





j 




5776 





i 




5777 

FFF2 

FF 

FF 

FF FF 


BYTE 

$FF>*FF,*FFi 

$FF, IFF , SFF 

5778 

FFF6 

FF 

FF 






5779 









5780 

FFF3 




CRNTP8 

Si* 



5781 






*«*FFF8 



5782 

FFF8 

DD 

57 


CHKSUN; 

. DBYTE 

$DD57 


5783 






*~*14 



5784 

0014 

00 



KBD3PR: 

. BYTE 

*FFFS-CRNTP8 

i , GDISPLC IS TOO LONG 

5785 

0015 





. END 
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130 



DISPLAY HANDLER —- 10-30-78 — DISPLC PAGE 


CROSS REFERENCE 


LA 3 EL 

VALUE 

REFERENCE 







AC K 

0041 

-1658 

1921 







ACKREC 

E9C6 

1804 

-1813 







ADDCGR 

Q3GE 

-501 

2529 

2533 

2537 





AO Jl 

ED 10 

2547 

-2551 







ADJUST 

ED09 

2491 

2494 

-2546 





41.62 

ADRESS 

0064 

-270 

4098 

4123 

4149 

4151 

4160 

4161 



4164 

4230 

4232 

4236 

4238 

4241 

4243 

4274 



4333 

4335 

4404 

4421 

4423 

4548 

4551 

4552 



4631 

4633 

4659 

4664 

4726 

4733 

4/36 

4738 



4740 

4744 

4812 

4813 

481.6 

4817 

5070 

5072 



5079 

5082 

5084 

5127 

5139 

5141 

5143 

5146 



5149 

5153 

55.54 

5156 

5157 

5265 

5356 

5358 

AFP 

DSOO 

-579 



_ 





■Al.'U-OT 

U2UH 

-6/3 








aLLSEC 

F30E 

3864 

-3869 







ALOCAT 

FE45 

4124 

-5540 







ANCONV 

FE69 

4117 

-5571 






756 

ANTIC 

D400 

-749 

750 

751 

752 

753 

754 

755 



757 

758 

759 

760 

761 

762 

763 

764 

APPEND 

0001 

-109 








APFWHl 

00 OE 

-ISO 

4739 

4743 






ASCCOi 

F705 

4456 

-4458 







ASC'/ER 

0030 

-778 

1209 






4395 

ATACHR 

02FB 

-472 

4286 

4289 

4294 

4311 

4350 

4372 



4399 

4406 

4459 

4493 

4504 

4506 

4584 

5060 



5278 

5505 

5516 

5520 





ATAINT 

FEF6 

4321 

-5677 







A TAN 

BE43 

-613 








ATASCI 

FEFE 

4458 

-5687 







AT EOF 

FOOB 

3241 

-3247 







aTRACT 

004D 

-249 

1359 

1406 

1412 

1414 

5770 



AUDC1 

0201 

-681 

2364 

2374 

2399 





AU0C2 

0203 

~683 

2375 







AUDC3 

D205 

-685 

2370 







AUDC4 

D207 

-687 








AUDCTL 

D208 

-688 

2357 







AUDF1 

0200 

-680 

2318 







AUDF2 

0202 

-682 

2316 







AUDF3 

0204 

-684 

1768 

2224 

2616 

3197 




AUDF4 

D206 

-686 

1770 

2226 

2618 

3199 




B192HI 

0000 

-1667 

1769 







8 1 92LO 

0023 

-1666 

1767 







B60GHI 

0005 

-1669 

2225 







3600L0 

OOCC 

-1668 

2223 







BAD 

EA63 

1938 

-1944 







nADCOM 

E9BF 

1301 

-1807 

1828 






BADDSK 

F306 

-3865 

3901 

3907 






BADIOC 

0086 

-143 

840 







BADMOD 

0091 

-155 

4119 
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BADST 

EE9E 

2919 

2922 

2968 

-2970 





BEEP 

F058 

3167 

3194 

-3305 






DEEP 1 

F05A 

-3306 

3330 







BEGIN 

ED 14 

2276 

-2567 

2579 






SELL 

F90A 

4380 

-4704 

5665 






BELLI 

F90C 

-4705 

4707 







BFENHI 

0035 

-225 

1793 

1905 

2002 

2165 

2205 



BFENLO 

0034 

-224 

1790 

1902 

2005 

2168 

2200 



BITCLR 

FB12 

4602 

5016 

-5024 






8ITCGN 

FAEB 

-4997 

5018 

5024 

5034 





BITGE1 

FB31 

5038 

-5040 







BITGET 

FB25 

4596 

4868 

-5034 






BITM5K 

006E 

-277 

5001 

5020 

5025 

5037 




21 TPUT 

FB04 

4689 

-5016 

5107 

5116 





SITROL 

FAFA 

-5010 

5137 







BITSET 

FB06 

4600 

“50 IB 







ELACKB 

F22A 

-3717 

3718 







BLFILL 

EEC 1 

2997 

-3000 

3020 






SLIM 

02QA 

-403 

31 SO 

3226 

3245 





13 L KB 2 

F230 

3717 

-3719 







OLKBDV 

E471 

-73 

3460 

3578 

3580 





SLOAD 

F36C 

3906 

-3911 







BOOT 

F2CF 

3687 

-3840 







BOOTAD 

0242 

-365 

3874 

3876 

3912 

3915 




BOOT? 

0009 

-177 

3842 

3909 

3969 

3985 




BOTSCR 

02BF 

-432 

4171 

4179 

4520 

4526 

4642 

4931 

5313 

BPTR 

003D 

-235 

3179 

3216 

3225 

3229 

3237 

3254 

3256 



3265 

3284 







BRKABT 

0080 

-137 

2646 

3185 

4444 

4961 




DRKKEY 

0011 

-185 

1356 

1976 

2084 

2567 

2589 

2652 

3186 



3211 

3813 

4445 

4487 

4962 

4963 



BROKE 

EDA4 

1978 

2086 

2569 

2590 

-2641 




BS 

F7E6 

-4569 

5651 







BS1 

FQOD 

4571 

-4586 







8S2 

F805 

4579 

4581 

“4583 






BS3 

F7F5 

4574 

-4576 







BBA 

F7EC 

-4572 








BUFADR 

0015 

-188 

2835 

2844 

2848 

2869 

287 1 



BUFCNT 

006B 

-275 

4364 

4388 

4390 

5197 

5207 

5210 

5218 



5227 








BUFFH 

0004 

-3398 

3399 

3861 






BUFFL 

0000 

-3399 

3859 







BUFFUL 

EECB 

2994 

-3005 







I3UFRFL 

0038 

-228 

2074 

2131 

2181 





BOFRHI 

0033 

-223 

1792 

1904 

1999 

2001 

2162 

2164 

2203 



2633 

2635 







BUFRLO 

0032 

-222 

1788 

1900 

1970 

1997 

2004 

2029 

2153 



2160 

2167 

2198 

2624 

2626 

2630 

2632 


SUFSTR 

006C 

-276 

4367 

4369 

4384 

4386 

4562 

4566 

4905 



5192 

5194 

5241 

5243 





CAINI 

F239 

3646 

-3727 







CART 

BFFC 

-3413 

3635 

3643 

3758 

3760 

3761^ 

3771 


CARTAD 

BFFE 

-3415 

3727 

3728 

3766 






CARTCS 

BFFA 

-3412 

3697 

3703 





CARTFO 

BFFD 

-3414 

3679 

3682 

3694 

3700 

3763 


CAS31 

EC62 

2373 

- 2378 






CA3BUF 

03FD 

-548 

3107 

3108 

3228 

3239 

3244 

3255 



3292 

3370 

3372 

3373 

3398 

3399 

3870 



3880 

3883 






CASENT 

EB84 

1753 

“2218 






CASET 

0060 

-1637 

1751 

2310 

2372 




CASETV 

E440 

-55 

3122 

3490 

3827 




CASFLG 

030F 

-502 

1758 

2070 

2255 




CASINI 

0002 

-170 

3987 

3989 

3992 




CA3QRQ 

EF41 

-26 

3102 

3i40 





CASRED 

EBB7 

2219 

-2254 






CaSSBT 

004B 

-246 

3866 

3900 

3903 

3953 

3979 

3983 

CASSET 

0043 

-123 







CASSPR 

0014 

-3379 







CAUXl 

At i V <**> 

0230 

Anon 

-352 

1782 






CBAUDH 

Sr 4J*/ 

02EF 

—353 

-460 

1784 

2611 

2617 

3148 




CBAUDL 

02EE 

-459 

2610 

2615 

3146 




CBINI 

F23C 

3638 

-3728 






CBUFH 

0003 

-3107 

3108 

3347 





CBUFHI 

0002 

-1687 

1688 

1791 





CBUFL 

OOFD 

-3108 

3349 






COUFLO 

003A 

-1688 

1787 






CCOMND 

023B 

-351 

1779 






CDEVIC 

023A 

-350 

1687 

1688 

1776 




CDTHAI 

0226 

-331 

1540 

2662 

2664 




CDTMA2 

0228 

-332 

1541 






CDTHF3 

022A 

-333 

1467 

3174 

3176 

3210 

3213 


CDTMF4 

022C 

-335 







CDTNF5 

022E 

-337 







CDTMV1 

0218 

-324 

1463 

1464 

1547 

1549 

1551 

1552 



1574 

1576 






CDTMV2 

021A 

-325 







CDTMV3 

021C 

-326 







CDTMV4 

02 IE 

-327 







CDTMV5 

0220 

-328 







CGUBL 

EF26 

3077 

-3080 






CH 

02FC 

-473 

1490 

4065 

4440 

4447 

4452 

5765 

CHI 

02F2 

-464 

5754 

5766 





CHACT 

02F3 

-466 

1454 

4088 





CHACTL 

D401 

-751 

1455 






CHAR 

02FA 

-471 

4230 

4322 

4324 

5047 

5057 


CHBAS 

02F4 

-467 

1452 

4086 





CHBASE 

D409 

-757 

1453 






CHKDON 

EABC 

2015 

-2022 

2037 





CHKERR 

008F 

-152 

2138 






CHKSNT 

G03B 

-23? 

1966 

2008 

2014 

2046 



CHKSUH 

0031 

-221 

1965 

1974 

2011 

2033 

2035 

2073 



2156 

2158 

2628 





CHKSUN 

FFF8 

-5782 







CHKTIM 

EAFB 

-2084 

2091 







3286 

3878 


1554 


2135 


CHRORG 

EOOO 

CICL02 

E53F 

CICLOS 

E533 

CIERR 1 

E4D1 

CIERR2 

E6B0 

CIERR3 

E50F 

CIERR4 

E511 

ClJUMP 

E693 

CINI 

F3E1 

CIO 

E4C4 

Cl00HR 

002F 

cioii 

E4A8 

ClDINT 

E4A6 

CIOINV 

E46E 

CIOORO 

E4A6 

ClOPEN 

E509 

CIOSPR 

0014 

CIOV 

E456 

ClREAD 

E569 

CIRT3 
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SIZERO 

D008 

-704 






SIZEP1 

D009 

-705 






SIZEP2 

DOOA 

-706 






SIZEP3 

DOOB 

-707 






SKCTL 

D20F 

-693 

1735 

2321 

2345 



SKRES 

D20A 

-690 

2117 

2347 




SKSTAT 

D20F 

-679 

1471 

1481 

2116 

2577 

2597 

SQUNDR 

0041 

-239 

1734 

2361 




SPACE 

0020 

-2904 

3000 





SPEC IA 

EF4B 

3123 

“3149 





SPECIL 

00 OE 

-91 

860 

862 




SPECL 

F23F 

3559 

-3758 





SQR 

BEB1 

-614 






SRETRN 

EB36 

2136 

-2141 

2177 




SR ST A 

0040 

-3109 

3358 





SRTIM2 

0006 

-1236 

1487 





SR TI MR 

022B 

-334 

1479 

1484 

i 488 

1 53S 

5772 

SRTIRO 

EB9F 

2232 

-2235 






2622 


RECVDS 

EC 64 

-2392 








RECVEN 

EC IF 

2081 

-2341 







REDOE 

0027 

-254 

360 i 







RELONE 

EAB3 

2009 

-2017 







RENAME 

0020 

-97 








RESET 

RIB 

3466 

3476 

-3541 






RETUR1 

F634 

4022 

4025 

4035 

4038 

4043 

4049 

4052 

4272 



4342 

4344 

-4347 

4507 

4974 

5312 

5531 


RETUR3 

FAE1 

4972 

-4974 







RETURM 

F621 

4265 

4293 

4298 

4301 

-4339 

4400 

4425 


RETURN 

EAOD 

1850 

1870 

1873 

-1880 

2286 

2655 



RIRGHI 

0000 

-1676 

2262 







RIROLO 

0073 

-1675 

2261 







RMARGN 

0053 

-258 

3602 

4535 

4540 

4578 

4847 

4938 

4940 



5205 

5224 

5261 






RNOER1 

FAD8 

-4969 








RN0ER2 

FAD6 

4964 

-4968 







RNGERR 

FAD1 

4944 

4945 

4951 

4954 

4957 

4958 

-4966 


RNGOK 

FAC4 

4949 

-4959 







ROWAC 

0070 

-279 

4918 

4920 

4921 

4923 

5420 

5448 

5454 



5456 

5458 

5459 

5463 





ROWCRS 

0054 

-259 

4307 

4366 

4385 

4518 

4522 

4524 

4525 



4564 

4580 

4624 

4641 

4668 

4679 

4680 

4754 



4761 

4827 

4865 

4882 

4891 

4911 

4943 

5031 



5110 

5112 

5167 

5193 

5202 

5214 

5226 

5255 



5291 

5302 

5317 

5320 

5376 

5422 

5467 

5469 



5507 

551 1 







ROWING 

0079 

-284 

5383 

5391 

5468 





RRETRN 

EB 10 

-2101 








RSIRG 

OOOA 

-1678 

2257 







RTCLOK 

0012 

-186 

1404 

1407 

1409 

1415 

2582 

2608 

3306 



3320 

3328 







S 

0053 

-2907 

3084 







SAVADR 

0068 

-273 

4011 

4163 

4165 

4240 

4242 

4632 

4634 



4646 

4650 







SAVIO 

0316 

-508 

2580 

2599 

2601 





5AVMSC 

0058 

-262 

4150 

4152 

4219 

4221 

5138 

5140 

5355 



5357 








SBUFSZ 

00 ID 

-2901 

3086 







SCOLLP 

E834 

-1446 

1451 







SCREDT 

0045 

-119 








SCRENV 

E410 

-52 

3494 

3824 

4030 





BCRFLG 

02BB 

-428 

4607 

4622 

4904 





SCRMEM 

0093 

-157 

4746 







SCRNDK 

F1DB 

3662 

-3664 

3665 

3667 





SCRDL1 

FBB7 

4699 

-5142 

5155 

5159 





SCR0L2 

FBCA 

5147 

5150 

-5152 






SCROLL 

FBAC 

4903 

-5137 







SDL.STH 

0231 

-340 

1435 







SDLSTL 

0230 

-339 

1437 

4231 

4233 

4244 

4246 



SDMCTL 

022F 

-338 

1439 

4089 

4263 

4264 




SECT 1 

F301 

-3863 

3981 







SECTX 

F34C 

-3897 

3902 








PTRIGO 

027C 

-388 

1528 

PTRIG1 

027D 

-389 

1525 

PTRIG2 

027E 

-390 


PTRIG3 

027F 

-391 


PTRIG4 

0280 

-392 


PTRIG5 

0281 

-393 


PTRIG6 

0282 

-394 


PTRIG7 

0283 

-395 


PTRLP 

ESDI 

-1521 

1532 

PUTADR 

EE6D 

2833 

2840 

PUTBC 

EE43 

2832 

-2837 

PUTCAR 

OOOB 

-3389 


PUTCHR 

OOOB 

-88 

900 

PUTCNT 

EE21 

2817 

-2823 

PUTDAT 

0080 

-2758 

2815 

PUTDTO 

EE01 

2807 

-2809 

PUTLIN 

F385 

3712 

—3936 

PUTMSC 

FCF3 

4545 

4760 

PUTREC 

0009 

-87 


PUTSEC 

0050 

-2753 


PUTTXT 

0009 

-3387 

3941 

PWRQNA 

F3E4 

4027 

4040 

PWRUP 

F125 

3470 

3474 

PWRUP1 

F128 

3545 

-3555 

RADFUG 

OOFB 

-635 


RADON 

0000 

-636 


RAMLO 

0004 

-171 

3566 



3780 

3781 



3888 

3890 

RAMSIZ 

02E4 

-454 

3632 

RAMTOP 

006A 

-274 

4068 



5158 


RANDOM 

D20A 

-675 


RANGE 

FA96 

4268 

4287 

RANGE1 

FAB7 

4947 

-4953 

RANGE2 

FABB 

4952 

-4955 

RANGE3 

FA9E 

4939 

-4941 

RBLOK 

EFE9 

3134 

3227 

RBLOKV 

E47A 

-76 

3133 

RCI1 

E5A7 

977 

982 

RC Ill 

E5I3F 

-1008 


RCI1A 

E574 

950 

-957 

RCI1B 

E571 

-954 

958 

RC 12 

E5AC 

-993 


RC 13 

E587 

963 

-969 

RC 14 

E5C3 

971 

984 

RC 16 

E5B2 

-998 

1005 

RDBAD 

EE51 

-2844 

2851 

RDBYTE 

F310 

-3870 

3873 

RDONLY 

0087 

-144 

1022 

READ 

0052 

-1642 

3956 

RECEIV 

EAE2 
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RECVDN 
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-229 
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3567 
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3777 
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3918 


3640 

3815 





4111 
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PHSTLO 

EE7D 

-2944 

2961 

2962 






PHWRIT 

EEA7 

2920 

-2987 







P IA 

0300 

-765 

766 

767 

768 

769 




PIRQ 

E6F3 

-1293 

1603 

1604 






PIRQ1 

FFDC 

5760 

-5765 







PIRG2 

FFFQ 

-5773 








PIRQ3 

FFCB 

5755 

-5758 







PIRQ4 

FFEB 

5757 

5764 

-5771 






PIRQH 

00E6 

1264 

-1603 

1604 






PIRQL 

00F3 

1266 

-1604 







PIRGQ 

FFBE 

4060 

-5753 







PLACR1 

FCAA 

-5301 

5304 







PLACRS 

FCAS 

462 i 

4652 

5231 

-5300 

5521 




PLOT 

OOSO 

-1653 








PLUS 

ECFC 

2532 

-2534 







PLYARG 

05E0 

-647 

648 







PLYEVL 

DD40 

-600 








PMBASE 

D407 

-756 








PNMI 

E7B4 

-1383 

1605 

1606 






PNMI1 

E7BC 

1384 

-1386 







PNMIH 

00E7 

1268 

-1605 

1606 






PNMIL 

00B4 

1270 

-1606 







POINT 

0025 

-102 








POKEY 

D200 

-664 

665 

666 

667 

668 

669 

670 

671 



672 

673 

674 

675 

676 

677 

678 

679 



680 

681 

682 

683 

684 

685 

686 

687 



688 

6S9 

690 

691 

692 

693 



POKMSK 

0010 

-184 

1300 

1308 

1312 

1318 

1326 

1333 

1340 



1347 

1353 

2017 

2019 

2051 

2053 

2324 

2350 



2352 

2393 

2394 

4093 

4094 




POKTAB 

EDD2 

2535 

2538 

-2707 






PORTA 

D300 

-766 

1287 

1364 

1494 

1501 




PORTB 

D301 

-767 

1288 

1368 






POTO 

D200 

-665 

1511 







POTi 

D201 

—666 








P0T2 

D202 

-667 








P0T3 

D203 

-668 








POT 4 

D204 

-669 

1513 







POTS 

D205 

-670 








P0T6 

D206 

-671 








P0T7 

D207 

-672 








POTGO 

D20B 

-676 

1517 







PRINTR 

0050 

-122 








PR INTV 

E430 

-54 

3488 

3826 






PRIOR 

DO IB 

-723 

1442 







PRMODE 

EF1A 

2988 

3018 

-3074 






PRNBUF 

03C0 

-536 

2945 

2991 

3001 





PRNORG 

EE78 

-25 

2881 

2930 






PRNSPR 

0014 

-3102 








PRVORN 

0081 

-138 

883 







PS IOC 

EF01 

3048 

-3050 







P TEMP 

00 IF 

-198 

2987 

2990 






PTIMOT 

001C 

-195 

2938 

3055 

3065 






OPNOUT 

0002 

-2898 







OPNRTN 

EF8F 

3168 

-3187 

3195 





OPNTMP 

0066 

-272 

4131 

4140 

4169 

4195 

4196 

4197 

OP OK 

EFD3 

3181 

-3217 






OPOUT 

EF95 

3161 

-3191 






OP SYS 

F17B 

-3606 







OSRAM 

F294 

3611 

-3813 






OUTCH 

F5B7 

4037 

-4286 






GUTCH2 

F5FF 

-4322 

4346 

4608 





OUTCHA 

F5BD 

-4289 







OUTCHB 

F5D7 

4296 

-4299 






OUTCHE 

F5CA 

4291 

-4294 

4413 





OUTPLT 

F5E0 

4299 

-4304 

4305 

4585 

5501 

5517 


09RRUN 

OOSE 

-151 

2128 






POPF 

D004 

-732 







POPL 

DOOC 

-740 







P1PF 

D005 

-733 







P 1 PL 

DOOD 

-741 







P2PF 

D006 

-734 







P2PL 

DOOE 

-742 







P3PF 

D007 

-735 







P3PL 

DOOF 

-743 







PACTL 

D302 

-768 

1284 

1290 

1362 

1726 

2239 

2266 



2643 

3170 

3204 

3282 




PADDLO 

0270 

-376 

1512 






PADDLi 

0271 

-377 







PADDL2 

0272 

-378 







PADDL3 

0273 

-379 







PADDL4 

0274 

-380 

1514 






PADDL5 

0275 

“381 







PADDL6 

0276 

-382 







PADDL7 

0277 

-383 







PAGETB 

FE75 

4157 

-5579 






PBCTL 

0303 

-769 

1285 

1291 

1366 

1729 

1796 

2083 

FBPNT 

001D 

-196 

2979 

2989 

2995 

3006 

3019 


PBRK 

EFSB 

-3185 

3212 






PBUFSZ 

001E 

-197 

2960 

2993 

3003 

3051 

3087 


PBYTE 

F010 

3123 

-3254 






PCOLRO 

02C0 

-435 

1446 






PCOLR1 

02C1 

”436 







PC0LR2 

02C2 

-437 







PC0LR3 

02C3 

-438 







PDEVN 

0040 

-2902 

3041 






PENH 

D40C 

-760 

1433 






PENV 

D40D 

-761 

1431 






PHACRi 

FC9F 

-5291 

5294 






PHACRS 

FC9D 

4603 

4629 

5139 

-5290 

5504 



PHCHL.0 

EE7F 

-2945 

3007 

3008 





PHOLDS 

EEOC 

2918 

-3013 






PHINIT 

EE78 

2923 

-2937 






PHOPEN 

EE9F 

2917 

“2977 






PHPUT 

EF 1 4 

2969 

-3064 






PHSTAT 

EE81 

2921 

'■2959 

2977 






2284 


2644 


NO I NIT 

F2DC 

3844 

-3846 


NOIBE1 

EC49 

2362 

-2364 

2367 

NOKEY 

F2CE 

3833 

-•3835 


NO MOD 

F4AB 

4158 

-4162 


NONDEV 

00B2 

-139 

1199 


NORMAL 

004E 

-1651 



NOROWS 

FE99 

4890 

4942 

-5602 

NOSCR 1 

FA32 

4876 

-4878 


NOSCRL 

FA2C 

-4875 



N0T8 

F48B 

4134 

4145 

-4148 

NOTCAS 

EC 10 

231 1 

-2320 


NOTCST 

E96B 

1752 

“-1757 


NGTDER 

EA52 

1927 

-1933 


NOTDON 

EA81 

-1976 

1981 


NOTE 

0026 

-103 



NOTEND 

EACO 

2003 

2006 

-2028 

NOTERR 

EAOO 

1362 

-1868 


NOTMXD 

F4F5 

4174 

4177 

-4197 

NOTOPN 

0085 

-142 

819 

1114 

NOTYET 

EB3E 

2132 

-2151 


NOWARM 

F2DD 

3841 

-3847 


NOWRPO 

EA98 

1998 

-2001 


NSIGN 

OGEE 

-625 



NTBRKO 

EA88 

1977 

-1980 


NTBRK1 

EB02 

2085 

-2088 


NTBRK2 

ED IB 

2568 

".-257 1 


NTFRAM 

EB IF 

2120 

-2125 


NTOVRN 

EB27 

2126 

”2131 


NTWRP1 

EB52 

2161 

-2164 


NUMDLE 

FES 1 

4194 

4198 

-5547 

NVALID 

0084 

-141 

853 

5372 

NWOK 

EA56 

1915 

1931 

-1936 

NXTENT 

F1BC 

-3618 

362 i 


QDNHI 

OOEA 

-2446 

2447 


QDNLO 

0090 

”2447 



QFFCRS 

FAE4 

4382 

4409 

-4980 

OKTIM1 

ED23 

2574 

-2577 


OK TI MR 

ED4C 

2593 

-2597 


OLDADR 

005E 

-266 

4814 

4818 

GLDCHR 

00 5D 

-265 

4340 

4981 

OLDCOL 

005B 

-264 

5399 

5402 

OLDROW 

005A 

-263 

4303 

5387 

OPEN 

0003 

-84 

855 


OPENC 

EF4C 

3123 

-3154 


OF INF 

EF5D 

3137 

3159 

-3163 

UPNC-OM 

F404 

4079 

-4084 


OPNEDT 

F118 

-3528 

3530 

3531 

OPNERR 

F453 

-4119 



OP NH 

OOF 1 

-3530 

3531 

3656 

OPNIN 

0004 

-ill 

113 


OPNINO 

OOOC 

-I 13 



OPNL 

0018 

-3531 

3654 


OPNOT 

0008 

-1 12 

1 13 



4932 

5421 



mipf 

D001 

-729 


Ml PL 

D009 

-737 


M2PF 

D002 

-730 


M2PL 

DOOA 

-738 


M3PF 

D003 

-731 


M3PL 

DOOB 

-739 


MASKTB 

FEB9 

5000 

-5623 

MAXDEV 

0021 

-516 

1110 

MAX IOC 

0080 

-202 

811 

MEMLO 

02E7 

-456 

3820 

MEMORY 

M 0000 

0 


MEMTOP 

02E5 

-455 

3816 

MLTTMP 

0066 

”271 

272 



4772 

4774 



4801 

4803 

MODATA 

E9F0 

1846 

-1857 

MODEM 

004D 

-124 


MONORG 

F0E3 

-27 

3379 

MONSPR 

0014 

-4001 


MOTRGO 

0034 

-1682 

2238 

M0TR3T 

003C 

-1683 

1725 

MOVLIl 

FB58 

-5074 

5081 

M0VLI2 

FB7A 

5090 

”5092 

MOVLIN 

FB4E 

4671 

-5069 

MQVVEC 

F17D 

-3607 

3610 

MVBUFF 

F32D 

-3882 

3898 

MVNXB 

F32F 

-3883 

3886 

MXDMDE 

FE5D 

4194 

-5550 

MXDMOD 

0010 

-114 


N 

004E 

-2905 

3076 

NACK 

004E 

-1659 


NARG 

0000 

0 


NBUFSZ 

0028 

-2899 

3078 

NCOMHI 

003C 

-1681 

1728 

NCOMLO 

0034 

-1680 

1795 

NEWCOL 

0061 

-268 

5379 

NEWROW 

0060 

-267 

5377 

MLR 

F005 

3243 

-3245 

NMIEN 

D40E 

-762 

1282 

NMIRES 

D40F 

-763 

1395 

NMIST 

D40F 

-764 

1383 

NO A1 

F IF 1 

3678 

-3680 

N0A2 

F212 

3693 

3696 

NOB 1 

F1F8 

3681 

3683 

NOBOOT 

F1FF 

3684 

-3690 

N0CAR2 

F220 

3699 

-3707 

NOCART 

FIFO 

3676 

-3687 

NOCKSM 

003C 

-232 

1908 

NOCLR 

EAEB 

2071 

-2074 

N0CSB2 

F3BF 

3971 

-3973 

NQCSBT 

F3E0 

3976 

-3990 

NODAT 

0000 

-2756 


NOFUNC 

F63D 

4026 

4051 


1190 

836 

3822 


3818 

4066 

4237 

4239 



4012 

4762 

4764 

4765 

4767 

4769 

4777 

4810 

4778 

4815 

4780 

4785 

4786 

4800 


3480 

2265 3169 3203 

2283 2642 3281 


3091 


2082 

5381 5398 5401 

5386 

1571 1578 

1387 1579 

“3698 


3702 

2171 2175 


4053 “4351 


JTADRH 

OOEB 

-2293 

2294 

JTADRL 

OOFO 

-2294 

2661 

jtimer 

EBFO 

-2292 

2293 

■JTIMR1 

ESEF 

1422 

-1540 

JTIMR2 

ESF2 

1459 

-1541 

Ki 

F729 

4469 

-4473 

K2 

F734 

4474 

-4478 

K3 

F73F 

4479 

-4483 

K4 

F776 

4503 

-4507 

K5 

F76S 

4492 

4495 

K6 

F74D 

4484 

-4490 

K7 

F745 

4446 

-4486 

KS 

F773 

4489 

-4506 

KBCGDE 

D209 

-674 

1489 

KBD 

004B 

-120 


KBDHND 

E420 

-4048 


KBDORG 

F3E4 

-28 

4001 

KBDSPR 

0014 

-5784 


KEYBDV 

E420 

-53 

3334 

KEYDEL 

02F1 

-463 

1475 

KGETC1 

F71E 

4463 

-4468 

KGETC2 

F6DD 

-4439 

4461 

KGETC3 

F6FE 

-4454 

4501 

KGETCH 

F6E2 

4050 

4370 

LBFEND 

05FF 
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057E 

-644 


LBPR2 

057F 

-645 


LBUFF 

0580 

-646 
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EB6E 
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-253 

3599 

LENGTH 

022F 
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F7A5 
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4544 

LINBUF 

0247 
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5069 
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-167 
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0000 

-3396 


LNARGN 

0052 

-257 
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4656 

4696 



5263 

5348 

LOIGET 

FB22 

-5032 

5101 

L02GET 

FB23 

4683 

-5033 

LQCKFL 

0023 

-100 


LOG 

DECD 

-606 


LOG 10 

DED1 

-607 


LOGCOL 

0063 

-269 

4377 



4613 

4635 



5179 

5181 

LOGGET 

FB20 

4592 

4700 

LOGMAP 

02B2 

-423 

4556 

LOTONE 

0007 

'1671 

2315 

LPENH 

0234 

-344 

1434 

LPENV 

0235 

-345 

1432 

MOPF 

DOOO 

-728 


NO PL 

D008 

-736 



2663 

2294 


4497 

4499 

-4502 


5753 

5758 



4062 




3336 

1477 

3496 

5756 

3325 

5768 

4043 

4467 

4472 

4477 

4482 

-4441 

4449 




-2196 

2244 

2271 



5071 

4260 

4533 

4543 

4570 

4573 4589 

5122 

5170 

5212 

5220 

5242 

5253 5258 


4561 

4569 

4595 

4599 

4601 
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